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Definitions: 

Abort [Except] exception(Message: String) 
AbsoluteDef [CF/7eDe/s] const = 13 
AbsoluteLocalDef [CFileDefs] const = 14 

Accent_Version [Acclnt] function(ServPort: port; AccVersion: DevPartString): GeneralRetum 
AccentError [Dynamic] exception(R; GeneralRetum; M: String) 
AccentVersion [Dynamic] const = True 
AccErr [AccentType] const = 100 
Access_Rights [SesDiskDefs] type = integer 

AddExtension [PathName] procedure(var fileName: Path_Name; Extension: String) 
AddSearchWord [CommandParse] procedure(table: pWord_Search_Table; WordKey:. integer; 

WordString: Cmnd_String) 
Adjust [Spice_String] procedure(var Str: PString; Len: Integer) 
AII_Read_Access [SesDiskDefs] const = #100 
AII_Write_Access [SesDiskDefs] const = #200 

AllocaiePort [Acclnt] function(ServPort: port; var LocalPort: Port; BackLog: Integer): GeneralRetum 
AllocCommandNode [CommandParse] function(WordClass: Word.Type; WordString: 

Cmnd_String): pCommand_Word_List 
ALLPORTS [AccentType] const = - 1 
ALLPTS [AccentType] const = 1 
ALoadError [ALoad] exceptions: string_255) 

AlwaysEof [CommandParse] procedure(var ChPool: pCharacter_Pool; var PoolLength: 

Char_Pool_lndex) 
APath_Name [SesameDefs] type = string[Path_Name_Size] 
AppendCha r [Spice_String] procedure(var Str: PString; c: Char) 
AppendString [Spice_String] procedure(var Str1: PString; Str2: PString) 
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ArcCos [RealFunctions] function(X: Real): Real 
ArcCosLarge [RealFunctions] exception(X: Real) 
ArcSin [RealFunctions] function(X: Real): Real 
ArcSinLarge [RealFunctions] exception(X: Real) 
ArcTan [RealFunctions] function(X: Real): Real 
ArcTan2 [RealFunctions] function(Y, X: Real): Real 
ArcTan2Zero [RealFunctions] exception(Y, X: Real). 

Arguments [AccentType] type = record Return Value: GeneralReturn; case integer of 1: (Msg: 
ptrMsg; MaxWait: long; Option: integer; PtOption: integer); 2: (Ports: ptrPortBit Array; Msg Type: 
long); 3: (SrcAddr: VirtualAddress; DstAddr: VirtualAddress; NumWords: long; Delete: boolean; 
Create: boolean; Mask: long; DontShare: boolean); 4: (NumCmds: integer; GPIBBuffer: 
GPBuffer); 5: (NormalOrEmergency: boolean; EnableOrDisable: boolean); 6: (SleepID: long); 7: 
(RectPort: Port; X1: integer; Y1: integer; X2: integer; Y2: integer; Kind: integer); 8: (SrcRect: 
Port; DstRect: Port; Action: integer; Height: integer; Width: integer; SrcX: integer; SrcY: integer; 
DstX: integer; DstY: integer); 9: (Rect: Port; FontRect: Port; Funct: integer; FirstX: integer; 
FirstY: integer; MaxX: integer; FirstChar: integer; MaxChar: integer; StrPtr: Pointer; Rslt: 
integer); 10: (LockDoLock: boolean; LockPortPtr: ptrLPortArray; LockPortCnt: long); 1-1: 
(MsgWType: long; MsgWPortPtr: ptrLPortArray; MsgWPortCnt: long) end 

ARunLoad [ALoad] procedure(RunFileName: Path_Name; p: pointer; filesize: long; hiskport: port; 
LoadDebug: boolean) 

ASK USER [SapphDefs] const = -32005 

ASTInconsistency [Accent Type] const = AccErr + 46 

ASTRecord [Bootlnfo] type = integer 

ASyncfO [10] procedure(ServPort: ServerlOPort; Command: lOCommand; CmdBlk: Pointer; 
CmdBlk_Cnt: long; DataBuf: Pointer; DataBuf_Cnt: long; DataTransferCnt: Long; TimeOut: 
Long) 

Auth_Error_Base [AuthDefs] const = 5000 
Auth_Var [AuthDefs] type = String[Auth_Var_Size] 
Auth_Var_Size [AuthDefs] const = 30 

AuthorizationServerGone [SesDiskDefs] const = SesDisk_Error_Base + 3 

AuthPortlncor rect [AuthDefs] const = Auth_Error_Base + 3 

AvailabieVM [Acclnt] function(ServPort: port; var NumBytes: Long): GeneralReturn 

BackLogValue [AccentType] type = 0..MAXBACKLOG 

Bad Alignment [Dynamic] exception 

BadBase [Stream] exception(FileName: SName; Base: Integer) 

BadCreateMask [AccentType] const = AccErr + 52 

BadDateTime [Time] exception 

EadExit [Except] exception 

BadHeap [Dynamic] exception(H: HeapNumber) 

BadHeapNumber [Dynamic] const = 0 

BadldTable [Stream] exception(FileName: SName) 

BadlPCName [AccentType] const = AccErr+ 19 

BadKernelMsg [AccentType] const = AccErr + 27 

BadMsg [AccentType] const = AccErr + 22 

BADMSGID [AccentType] const = 1 

BadMsgType [Accent Type] const = AccErr+18 

BadName [SesameDefs] const = Sesame_Error_Base + 4 

BadPartitionName [SesDiskDefs] const = SesDisk_Error_Base + 1 

BadPartitionType [SesDiskDefs] const = SesDisk_Error_Base + 2 

BadPatterns [PMatch] exception 

Bad Pointer [Dynamic] exception 

BadPriority [AccentType] const = AccErr + 30 

BadRectangle [AccentType] const = AccErr + 53 

BADREPLY [AccentType] const = 3 

Bad Rights [Accent Type] const = AccErr + 8 
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BadSearchlistSyntax [EnvMgrDefs] const = Env_Error_Base + 3 
BadSegment [AccentType] const = AccErr + 34 
Bad SegTy pe [AccentType] [const = AccErr + 33 
BadTrap [AccentType] const = AccErr + 31 
BadVPTable [AccentType] const = AccErr + 39 
BadWildName [SesameDefc] const = Sesame_Error_Base + 7 

BaseType [SymDefs] type = (TJJnknown, T_Char, T_Boolean, T_lnteger, T_Enumerated, T_Real, 

T_Long, T_Pointer, T_Var, T_Routine, T_File, T_String, T_Set, T_Record, T_Array, TJJnused) 
BIRecord [Bootlnfo] type = packed record case integer of 1:. (IntBlk: array[0..255] of integer); 2: 

(OvITabie: array[0..11] of Virtual Address; VP: VirtualAddress; PV: VirtuaiAddress; PVList: 

VirtualAddress; Sector: VirtualAddress; PCB: VirtualAddress; AST: VirtualAddress; 

AccentQueue: VirtualAddress; AccentFont: VirtualAddress; AccentCursor: VirtualAddress; 

AccentScreen: VirtualAddress; ScreenSize: integer; FreeVP: integer; FreeAST: integer; 

SchedProc: integer; InitProc: integer; BootChar: integer; NumProc: integer; StackSize: integer; 

GlobalSize: integer; NumSVReg: integer; TrapCode: integer; TrapArgs: VirtualAddress; 

MemBoard: integer; AccentStdCursor: VirtualAddress; AccentRoTemp: VirtualAddress; 

DefaultPartitionName: String[19]; IgnoreRunFile: Boolean; Machinelnfo: MachinelnfoRec; Filler: 

array[0..49-WordSize(AstRecord)] of integer; FirstAst: ASTRecord; EtherlOArea: 

VirtualAddress; UserPtr: VirtualAddress; SVContext: record SV_.CS: integer; SV_GP: integer; 

SV_LP: integer; SV_LocalSize: integer; SV_TrapCount: integer; SV_FirstRN: integer; 

SV_PC_Vector: array[0..121] of integer end) end 
Bitl [AccentType] type = 0..1 
Bit10[4cce/7r7>pe]type = 0..1023 
Bitl 1 [AccentType] type* = 0..2047 
Bit 1 2 [Accent Type] type = 0..4095 
Bitl 3 [AccentType] type = 0..8191 
Bit14 [AccentType] type = 0..16383 
Bitl 5 [Accent Type] type = 0..32767 _ 
Bitl 6 [Accent Type] type = integer 
B;t2 [AccentType] type = 0..3 
Bit3 [AccentType] type = 0..7 

Bit32 [AccentType] type = packed, record case integer of 1: (DblWord: array[0..1] of integer); 3: 
(Bit32Ptr: pBit32); 4: (AnyPtr: pointer); 5: (Byte: packed array[0..3] of Bit8); 6: (PageOffset: Bit8; 
LswPage: Bit8; MswPage: Bit16); 7: (Lng: Long); 8: (Blk: integer; Index: Bit"! 2; Imag: Bit4); 13: 
(Fie!d4: BitS; Field3: Bit8; Field2: Bit8; Fieldl: Bit7; FieldO: Bitl); 14: (WordO: Bit16; Wordl: 
Bitl 6); 1 5: (ByteO: Bit8; Bytel : Bit8; Byte2: Bit8; Byte3: Bit8); end 

Bit4 [AccentType] type = 0..15 

Bit5 [AccentType] type = 0..31 

Bit6 [AccentType] type = 0..63 

Bit64 [AccentType] type = record Isw: long; msw: long; end 
Bit7 [AccentType] type = 0..1 27 
Bit8 [AccentType] type = 0..255 
Bit9 [AcceniType] type = 0..51 1 
BitTable [Spice_String] type = set of Char 
BlankStarString [SaltError] const = " 
BootBlockLocation [Bootlnfo] const = #20000000000 
BorderOverhead [Sapphbefs] const = 5 
BOTTOM [SapphDefs] const = 32000 
BreakKind [Spice_String] type = set of BreakType 
BreakPointTrap [AccentType] const = AccErr + 45 

BreakRecord [Spice_String] type = record Breakers: set of Char; Omitters: set of Char; Flags: 

BreakKind end 
BreakTable [Spice_String] type = tBreakRecord 

BreakType [Spice_String] type = (Append, Retain, Skip, FoldUp, FoldDown, Inclusive, Exclusive) 
Busy Rectangle [AccentType] const = AccErr + 57 
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ByteSizeOfAbsoluteLocalSymbol [CFileDefs] function(var sym: string): long 

ByteSizeOfAbsoluteSymbol [CFileDefs] function(var sym: string): long 

ByteSizeOfLibrarySymbol [CFileDefs] function(var libname: string): long 

CantFork [AccentType] const = AccErr + 29 

Cat3 [Spice_String] function(Str1 , Str2, Str3: pstring): pstring 

Cat4 [Spice_String] function(Str1 , Str2, Str3, Str4: pstring): pstring 

Cat5 [Spice_String] function(Str1 , Str2, Str3, Str4, Str5: pstring): pstring 

Cat6 [Spice_String] function(Str1 , Str2, Str3, Str4, Str5, Str6: pstring): pstring 

cChCmd [SapphDefs] const = 0 

cdBlueDown [SapphFileDefs] const = 258 

cdBlueUp [SapphFileDefs] const = 262 

cdDiffPosResponse [SapphFileDefs] const = 267 

cdGreenDown [SapphFileDefs] const = 259 

cdGreenUp [SapphFileDefs] const = 263 

cdUstener [SapphFileDefs] const = 269 

cdNoEvent [SapphFileDefs] const = 268 

cdPosResponse [SapphFileDefs] const = 266 

cdRegionExit [SapphFileDefs] const = 264 

cdTimeout [SapphFileDefs] const = 265 

cdWhiteDown [SapphFileDefs] const = 257 

cdWhiteUp [SapphFileDefs] const = 261 

cd Yellow Do w n [SapphFileDefs] const = 256 

cd Yellow Up [SapphFileDefs] const = 260 

CFJOBoard [Configuration] function: CfJOBoardType 

CfJOBoardType [Configuration] type = (Cf.CIO, Cf_EIO) 

Cf .Monitor [Configuration] function: Cf_MonitorType 

Cf.MonitorType [Configuration] type = (Cf_Landscape, Cf_Portrait) 

Cf_Network [Configuration] function: Cf_NetworkType 

Cf_NetvvorkType[Conf/guraf/'on]type = (Cf_CMUNet, CMOMBitNet) 

Cf_0ldZ80 [Configuration] function: Boolean 

CFileVersion [CFileDefs] const = -4 

ChainHead [CFileDefs] const = 12 

ChangeExtensions [PathName] procedure(var Name: Path__Name; EList: Extension_List; NewExt: 
string) 

ChangeUserParams [Auth] function(ServPort: Port; UserName: Auth_Var; CurrentPassword: 
Auth_Var; ChangePassword: Boolean; NewPassword: Auth_Var; NewProfiie: APath_Name; 
NewShell: APath_Name): GeneralReturn 

Char_Pool_lndex [CommandDefs] type = long 

Character_Pool [CommandDefs] type = packed array[0..0] of char 

ChA rray [Stream] type = packed array[1 ..1] of char 

Check_Type [AuthDefs] type = (Check.Login, Check_User) 

CheckHeap [Dynamic] procedure(S: HeapNumber) 

Checkln [MsgN] function(ServPort: Port; PortsName: string; Signature: Port; PortsID: Port): 
GeneralReturn 

Checkout [MsgN] function(ServPort: Port; PortsName: string; Signature: Port): GeneralReturn 
CheckUser [Auth] function (Sen/Port: Port; UserName: Auth_Var; Password: Auth_Var; var UserRec: 

UserRecord): GeneralReturn 
Clmplnfo [Code] type = record case boolean of true: (ModuleName: SNArray; FileName: FNString); 

false: (Ary: array[0..0] of integer) end 
Clmplnfo [SegDefs] type = record case boolean of true: (ModuleName: SNArray; FileName: 

FNString); false: (Ary: array[0..0] of integer) end 
CLoadNotCFile [Cload] const = - 1 

CLoadProcess [Cload] function(FileName: APath_Name; var FilelnMem: pointer; var FileSize: long; 
Proc: Port; LoadDebug: Boolean): GeneralReturn 
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CloselO [10] function(ServPort: ServerlOPort): GeneralReturn 
Cmd_EmptyCmdLine [ExtraCmdParse] const = -3 
Cmd_NotFound [ExtraCmdParse] const = WS_NotFound 
Cmd_NotlnsMaybeSwitches [ExtraCmdParse] const = -4 
Cmd_NotUnique [ExtraCmdParse] const = WS_NotUnique 
Cmd_SomeError [ExtraCmdParse] const = -5 
CmdChar [CommandParse] const = Chr(#200 + 24) 
CmdFileChar [CommandParse] const = Chr(#200 + 26) 
CmdParse_Error_Base [CommandDefs] const = 4200 
Cmnd_Strir»g [CommandParse] type = String[MaxCmndString] 
cNoCmd [SapphDefs] const =1 
CNTRLOOPS [SapphFileDefs] const = #225 
CodeVersion [Code] const = '1.14' 
command_file_leadin_char [CommandParse] const = ' 

Command_File_List [CommandParse] type = RECORD cmdFile: Text; isCharDevice: Boolean; next: 

pCommand_File_List; END 
Command_Word_List [CommandParse] type = packed record ptrWordString: pWord_String; 

DeallocWordString: boolean; case WordClass: Word_Type of in_arg, out_arg, commandjile: 

(NextArg: . pCommand_Word_List); switch_arg: (NextSwitch: pCommand_Word_List; 

ValueOfSwitch: pCommand_Word_List; CorrespondingArg: pCommand_Word_List); 

switch_value: (); end 

CommandBlock [CommandDefs] type = record WordCount: long; WordDirlndex: Char_Pool_lndex; 

WordArrayPtr: pCharacter_Pool; WordArray_Cnt: Char_Pool_lndex; end 
CommandParseVersion [CommandParse] const = '5.7 of 3 Jun 84' 
comment_leadin_char [CommandParse] const = '#' 
CommentLen [Code] const = 80 
CommentLen [SegDefs] const = 30 
Compactlcons [Sapph] procedure(ServPort: Window) 

CompletePathName [PathName] function(var WildPathName: Wild_Path_Name; ImplicitSearchList: 

Env_Var_Name; FirstOnly: boolean; var Cursor: integer): long 
ComputeProgress [WindowUtils] procedure(Current, Max: Long) 
Concat [SpicejString] function(Str1 , Str2: PString): PString 
Confirm_NO [ExtraCmdParse] const = 2 
Confirm_Switches [ExtraCmdParse] const = 3 
Confirm_YES [ExtraCmdParse] const = 1 

ConfirmUser [Auth] function(ServPort: Port; UserAuthPort: Port; var UserlD: UserJD; var 

UserMachineName: Auth_Var): GeneralReturn 
Connectionlnheritance [Spawn] type = (NewOne, Given, GivenReg) 
ControlChar [Stream] type = 0..#37 

ConvertPoolToString [CommandParse] function(ChPool: pCharacter_Pool; FirstChar: 

Char_Poo!_lndex; String Length: Char_Pool_lndex): Cmnd_String 
ConvertStringToPool [CommandParse] procedure(CnvStr: Cmnd_String; var ChPool: 

pCharacter_Pool; var PoolLength: Char_Pool_lndex) 
ConvUpper [Spice_String] procedure(var Str: PString) 

CopyEnvConnection [EnvMgr] function(ServPort: Port; OldConnection: Port; var NewConnection: 

port): GeneralReturn 
Cos [Real Functions] function(X: Real): Real 
CosH [Real Functions] function(x: real): real 
CosHLarge [Real Functions] exception(X: Real) 
CosLarge [RealFu notions] exception(X: Real) 
CoTan [RealFunctions] function(X: Real): Real 
CoveredRectangle [AccentType] const = AccErr + 56 
CreateHeap [Dynamic] function: HeapNumber 
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CreateProcess [Acclnt] function(ServPort: port; var HisKernelPort: port; var HisDataPort: port): 
GeneralReturn 

CreateRectangle [Acclnt] function(ServPort: port; RectPort: port; BaseAddr: VirtualAddress; 
ScanWidth: Integer; BaseX: Integer; BaseY: Integer; MaxX: Integer; MaxY: integer; IsFont: 
Boolean): GeneralReturn 

CreateSegment [Acclnt] function(ServPort: port; ImagSegPort: port; SegmentKind: SpiceSegKind; 

InitialSize: Integer; MaxSize: Integer; Stable: Boolean; var Segment: SegID): GeneralReturn 
CreateWindow [Sapph] function(ServPort: Window; fixedPosition: boolean; var leftx: integer; var 

topy: integer; fixedSize: boolean; var width: integer; var height: integer; hasTitle: boolean; 

hasborder: boolean; title: TitStr; var progName: ProgStr; haslcon: boolean; var vp: Viewport): 

Window 

CRLFConvention [SysType] const = false 

CursorArrayRec [SapphFileDefs] type = record firstBlock: Packed Record numCursors: Integer; 
filler: Integer; offsets: Array[0..126] of record x: Integer; y: Integer; End; End; cursors: array[0..0] 
of Pattern Map; end 

CursorFunction [SapphDefs] type = (cfScreenOff, cfBroken, cfOR, cfXOR, cfCursorOff) 

CursorSct [SapphDefs] type = LONG 

CVD [SpiceJString] function(Str: PString): integer 

CVH [Spice_String] function(Str: PString): integer 

CVHS [SpiceJString] function(l: integer): PString 

CVHSS [Spice_String] function(l: integer; W: integer): PString 

Cvlnt [Spice_String] function(Str: PString; R: integer): integer 

CvL [Spice_String] function(Str: PString; Radix: integer): long 

CvLS [SpiceJString] function(l: long; W: integer; Radix: integer; Fill: Pstring): Pstring 

CVN [Spice_String] function(l: integer; W: integer; B: integer; Fill: Pstring): Pstring 

CVO [Spice_Siring] function(Str: PString): integer 

CVOS [Spice_String] function(l: integer): Pstring 

CVOSS [SpiceJString] function(l: integer; W: integer): Pstring 

CVS [SpiceJString] function(l: integer): Pstring 

CVSS [Spice_String] function(l: integer; W: integer): Pstring 

CvUp [SpiceJString] function(Str: PString): PString 

Data2State IcF//eDefs] const = 2 

Data_Fo rm at [SesameDefs] type = long 

DATAPORT [AccentType] const = 2 

DataState [CFileDefs] const = 1 

Date_Fields [TimeDefs] type = packed record Year: integer; Month: 1 ..12; Day: 1 ..31; Weekday: 0..6; 
end 

DateString [ALoad] function(date: lntemal_Time): String 

DeallocatePort [Acclnt] function(ServPort: port; LocalPort: Port; Reason: Long): GeneralReturn 
DeAlloclconVP [Sapph] procedure(ServPort: Window) 

DebugMessage [ProcMgrDefs] type = record Head: Msg; tKPort: TypeType; KPort: Port; tArgl: 

TypeType; Arg1 : Long; tArg2: TypeType; Arg2: Long; end 
DEFAULTBACKLOG [AccentType] const = 0 * 
DefaultlnputName [Stream] var: STRING[255] 
DefauitOutputName [Stream] var: STRING[255] 
DEFAULTPTS [AccentType] const = 0 
DefHeapSize [Code] const = #4 
DeflncHeap [Cocfe] const = #4 
DeflncStack [Code] const = #4 
DefinedGlobal [CF/7eDefs] const = InitializedSymbol 
DefinedLocal [CF/7eDe/s] const = LocalLabel 

DefineFuIISize [Sapph] procedure(ServPort: Window; exceptW: Window) 
DefStackSize [Code] const = #20 

DeleteChars [Spice_String] procedure(Var Str: PString; Index, Size: Integer) 
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DeieteRegion [ViewPt] procedure(ServPort: Viewport; regionNum: integer) 

DeleteSearchWord [CommandParse] procedure(table: pWord_Search_Table; WordString: 
Cmnd_String) 

DeleteWindow [Sapph] procedure(ServPort: Window) 
DensityType [lODefs] type = (SingleDensity, DoubleDensity) 

Deposit [Acclnt] function(ServPort: port; RegOrStack: Boolean; Index: Integer; Value: Integer): 
GeneralReturn 

DestroyChPool [CommandParse] procedure(var ChPool: pCharacter_Pool; var PoolLength: 
Char_Pool_lndex) 

DestroyCommandList [CommandParse] procedure(var argList: pCommand_Word_List) 
DestroyCommandParse [CommandParse] procedure 
DestroyHeap [Dynamic] procedure(S: HeapNumber) 

DestroyRectangle [Acclnt] function(ServPort: port; RectPort: port): GeneralReturn 
Destroy Regions [ViewPt] procedure(ServPort: Viewport) 

DestroySearchTable [CommandParse] procedure(var table: pWord_Search_Table) 

Destroy Segment [Acclnt] function(ServPort: port; Segment: SegID): GeneralReturn 

Destroy Viewport [ViewPt] procedure(ServPort: Viewport) 

DestroyVPCursors [ViewPt] procedure(ServPort: CursorSet) 

DevPartString [AccentType] type = string[MAXDPCHARS] 

DForm_16_Bit [SesameDefs] const = 16 

DForm_32_Bit [SesameDefs] const = 32 

DForm_36_Bit [SesameDefs] const = 36 

DForm_8_Bit [SesameDefs] const = 8 

DForm_CRLF_Text [SesameDefs] const = #413 

DForm_LF_Text [SesameDefs] const = #410 

DForm_Press [SesameDefs] const = #1000 

DForm_Unspecified [SesameDefs] const = 0 

Dir_Separator [SesameDefs] const = V 

DirectIO [Acclnt] function(ServPort: port; var CmdBlk: DirectlOArgs; var DataHdr: Header; var Data: 

DiskBuffer): GeneralReturn 
DirectlOArgs [AccentType] type = Record lOStatus: Integer; UnitNumber: Integer; PhysAddress: 

Long; Command: DirlOCommands; end 
DirectoryNctEmpty [SesameDefs] const = Sesame_Error_Base + 3 
DirectoryNotFound [SesameDefs] const = Sesame_Error_Base + 2 

DirlOCommands [AccentType] type = (DirlOlnit, DirlORead, DirlOWrite, DirlOReadCheck, 
DirlOWriteCheck, DirlOTrackRead, DirlOTrackWrite, DirlOParamRead, DirlOBootRead, 
DirlOBootWrite, DirlOCIose) 

DisablePrivs [Pascallnit] function(Proc: PORT): GeneralReturn 

DiskAddr [AccentType] type = packed record case integer of 1: (Ing: long); 2: (byte: packed 

array[0..3] of Bit8) end 
DiskBuffer [AccentType] type = Packed Array[0..DISKBUFSIZE*2- 1] of Bit8 
DISKBUFSIZE [Accenf Type] const = PAGEBYTESIZE div 2 
DiskErr [AccentType] const = AccErr + 32 

Disklnterface [AccentType] type = (ElO, CIO, FlopDrives, MultiBus, Enet) 

DiskParams [AccentType] type = Record DskBoptSize: Integer; DskSectors: Integer; 
DskNumHeads: Integer; DskNumCylinders: Integer; DskSecCyl: Long; Case HDiskType: 
DiskType of D5lnch: (WriteCompCyl: Integer; LandingZone: Integer); D14lnch: (c24MByte: 
Boolean); End 

DiskType [AccentType] type = (DUnused, D5lnch, D14lnch, D8lnch, DSMD, DFIoppy) 

DisposeP [Dynamic] procedure(var Where: pointer; L: integer) 

DivZero [Except] exception 

DONTCARE [SapphDefs] const = -32004 

DONTWAiT [.4ccen/7ype] const = 1 

DstryCmdFiles [CommandParse] procedure(var inF: pCommand_File_List) 
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Dummy [Accent Type] const = AccErr + 0 

Dump [Except] exception(Message: String) 

DynamicVersion [Dynamic] const = '1.0' 

DynDebug [Dynamic] const = false 

Dyn Print [Dynamic] const = false 

DynStats [Dynamic] procedure(Tr, Dump: boolean) 

ElOAddress [EtherlODefs] type = record High: integer; Mid: integer; Low: integer end 

ElOByteCount [EtherWDefs] const = 3002 

E1OByteData[£f/7er70D8fs]type = packed array[0.. 1499] of 0.. 255 

ElOByteslnHeader [£f/7er70De/s] const = 14 

E1 OCharData [EtherlODefs] type = packed array[0..1499] of char 

E10CRC [EtherlODefs] const = 3005 

ElOFilterType [Ether WDefs] type = ElOType 

ElOGetAdd [NetWMB] function(ServPort: ElOPort; var Addr: ElOAddress): GeneralReturn 
ElOlntegerData [EtherlODefs] type - packed array[0..749] of integer 
E1 OLongData [EtherlODefs] type = packed array[0..374] of long 
ElOMaxDataBytes [EtherlODefs] const = 1500 

ElOMessage [EtherlODefs] type = record Head: Msg; Body: array[0..123] of integer; end 
ElOMinDataBytes [EtherlODefs] const = 46 
E1 ONoFreeStructures [NetWMB] exception 
ElONoNet [Ether 1 0Defs] const = 3003 
E1 OOK [EtherWDefs] const = 3000 • 

ElOPacket [EtherWDefs] type = packed record Dest: ElOAddress; Src: ElOAddress; PType: 
ElOType; case integer of 1: (BData: ElOByteData); 2: (CData: E1 OCharData); 3: (IData: 
ElOlntegerData); 4: (LData: E1 OLongData); end 

ElOPori [EtherWDefs] type = Port 

ElOPortClear [NetWMB] function(ServPort: ElOPort; PacketPort: ElOPort): GeneralReturn 
ElOReceive [EtherWDefs] exception (Sen/Port: ElOPort; Buff: pEIOPacket; NumBytes: long) 
E1 ORecvFailed [NetWMB] exception(Why: Integer) . 
ElORetVai [£i/?er70De/s] type = integer 

ElOSend [NetWMB] function(ServPort: ElOPort; Buff: pEIOPacket; Buff.Cnt: long): GeneralReturn 
E10SendError[£r7/7er70De/s] const = 3004 
ElOSendFailed [NetWMB] exception (Why: Integer) 

ElOSetFilter [NetWMB] function(ServPort: ElOPort; PacketPort: ElOPort; Which: ElOFilterType): 

GeneralReturn 
ElOTimeOut [Ef/7er70Defs] const = 3001 
ElOType [Ether 1 0Defs] type = integer 

EtOTypeClear [NetWMB] function(ServPort: ElOPort; Which: ElOFilterType): GeneralReturn 

E1OWordsInHeader[Ef/7er70Defsj const = 7 

EBad Reply [Etherilser] exception 

ELeveM Abort [SaphEmrExceptions] exception 

ELevell Debug [SaphEmrExceptions] exception 

ELevel2 Abort [SaphEmrExceptions] exception 

ELevel3 Abort [SaphEmrExceptions] exception 

EMERGENCYMSG [AccentType] const = 1 

EmergMsg [Except] exception 

EM Port [Pascallnit] var: port 

Enablelnput [ViewPt] procedure(ServPort: Viewport; keytrantab: VPStr255; timeout: integer) 
EnableNotifyExceptions [ViewPt] procedure(ServPort: Viewport; notifyPort: Port; changed: 

boolean; exposed: boolean) 
EnablePrivs [Pascallnit] function(Proc: PORT): GeneralReturn 

EnableRectangles [Acclnt] function (ServPort: port; RectList: PtrPortArray; RectList_Cnt: long; 
Enable: Boolean): GeneralReturn 
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EnableWinListener [Sapph] procedure(ServPort: Window; abortPort: Port; keytranTab: VPStr255; 

timeOut: integer) 
Entry_AII [SesameDefs] const = 0 

Entry_Data [SesameDefs] type = record case Entry _Type of Entry_File: (); Entry Directory: (); 
Entry_Port: (EDPort: Port); #400: (EDBytes: packed array[0..255] of bit8);#401: (EDWords: 
array[0..127] of integer); #402: (EDLongs: array[0..63] of long); #403: (EDString: string[255]); 
end 

Entry_Di rectory [SesameDefs] const = 2 

Entry_File [SesameDefs] const = 1 

Entry_Fo reign [SesDiskDefs] const = 6 

Entry_List [SesameDefs] type = tEntry_List_Array 

Ent ry_List_ Array [SesameDefs] type = array[0..0] of Entry_List_Record 

Entry_List_Record [SesameDefs] type = record EntryName: Entry_Name; EntryVersion: long; 

Entry Type: Entry_Type; NameStatus: Name_Status; end 
Entry_Name [SesameDefs] type = string[Entry_Name_Size] 
Entry_Name_Size [SesameDefs] const = 80 
Entry_Port [SesameDefs] const = 3 
Ent ry_RESER VED [SesameDefs] type = 4.. #377 
Entry_Type [SesameDefs] type = 0..# 77777 
Ent ry_UserDefined [SesameDefs] type = #400.. #77777 
Env_Element [EnvMgrDefs] type = string[Env_Element_Size] 
Env_Element_A r ray [EnvMgrDefs] type = array[0..0] of Env_Element 
Env_Element_Size [EnvMgrDefs] const = 255 
Env_Error_Base [EnvMgrDefs] const = 1600 
3nv_quoted_bracket_char [CommandParse] const = "" 
Env_Scan_Array [EnvMgrDefs] type = array[0..0] of Env_Scan_Record 
Env_Scan_List [EnvMgrDefs] type = tEnv_Scan_Array 

Env_Scan_Record [EnvMgrDefs] type = record VarName: Env_Var_Name; VarType: Env_Var_Type; 

VarScope: Env_Var_Scope; end 
env_var_bracket_char [CommandParse] const = 't* ' 
Env_Var_Name [EnvMgrDefs] type = string [En v_VarName_Size] 
Env_Var_Scope [EnvMgrDefs] type = (Env_Normal, Env_Local, Env_Global) 
Env_Var_Type [EnvMgrDefs] type = (Env_String, Env_SearchList) 
Env_Variable [EnvMgrDefs] type = tEnv_Element_Array 
Env_VarName_Size [EnvMgrDefs] const = Entry_Name_Size 

EnvCompletePathName [PathName] function(EnvConnection: Port; var WildPathName: 
Wild_Path_Name; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var Cursor: integer): 
long 

EnvDisconnect [EnvMgr] function(ServPort: Port): GeneralReturn 

EnvFindWild Pathnames [PathName] function(EnvConnection: Port; var WildPathName: 
Path_Name: ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; NameFlags: Name_Flags; 
EntryType: Entry_Type; var FoundlnFirst: boolean; var DirName: APath_Name; var EntryList: 
Entry_List; var EntryList_Cnt: long): GenerarReturn 

EnvVariableNotFound [EnvMgrDefs] const = Env_Error_Base + 1 

eofChar [CommandParse] const = chr(0) 

eolnChar [CommandParse] const = chr(#12) 

ErAnyErro r [CommandDefs] const = CmdParse_Error_Base + 14 

ErBadCmd [CommandDefs] const = CmdParse_Error_Base + 2 

ErBadQuote [CommandDefs] const = CmdParse_Error_Base + 13 

ErBadSwitch [CommandDefs] const = CmdParse_Error_Base + 1 

ErCmdNotUnique [CommandDefs] const = CmdParse_Error_Base + 8 

ErCmdParam [CommandDefs] const = CmdParse_Error_Base + 6 

EReceive [AccCall] function(var xxmsg: Msg; MaxWait: long; PortOpt: PortOption; Option: 
ReceiveOption): GeneralReturn 
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EReceiveFailed [EtherUser] exception(Why: GeneralReturn) 
ErIIICharAfter [CommandDefs] const = CmdParse_Error_Base + 12 
ErNoCmdParam [CommandDefs] const = CmdParse_Error_Base + 4 
ErNoOutFile [CommandDefs] const = CmdParse_Error_Base + 9 
ErNoSwParam [CommandDefs] consi = CmdParse_Error_Base + 3 
ErOnelnput [CommandDefs] const = CmdParse_Error_Base + 10 
ErOneOutput [CommandDefs] const = CmdParse_Error_Base + 1 1 

ErrorMsgPMBroadcast [SaltError] procedure(GR: GeneralReturn; ER_Type: GR_Error_Type; 

ProgName: String; InMsg: PString) 
ErSwNotUnique [CommandDefs] const = CmdParse_Error_Base + 7 
ErSwParam [CommandDefs] const = CmdParse_Error_Base + 5 
EscKind [SapphFHeDefs] type = (CodeNormal, CodeSame, EscReturn, EscNoop) 
ESendFailed [EtherUser] exception(Why: GeneralReturn) 
EStack [Except] exception 

EStackToo Deep [AccentType] const •= AccErr + 42 

EtherHeader [EtherTypes] type = PACKED RECORD Src: 0..255; Dst: 0..255; Typ: INTEGER; END 
EtherlDBase [EtherTypes] | const = 800 

Ether Packet [EtherTypes] type = RECORD CASE Integer OF 0: (Header: EtherHeader; DataWords: 
ARRAY[O..MaxEtherWords- WordSize(EtherHeader) - 1] OF INTEGER); 1: (Words: 
ARRAY[0..MaxEtherWords-1] OF INTEGER); 2: (LongHeader: EtherHeader; LongWords: 
ARRAY[0..(MaxEtherWords-WordSize(EtherHeader)) div 2-1] OF LONG); 3: (ConfigHdr: 
EtherHeader; SkipC: integer; ConfigBytes: PACKED 

ARRAY[0..2*(MaxEtherWords - WordSize(EtherHeader) - 1 )] OF Bit8) END 

EtherPacketBytes[£?/7er7ypes] const = 2*WordSize(MsgEtherPacket) 

EtherTyp3ConfigTest [EtherTypes] const = #220 

EtherTypConfigTest [EtherTypes] const = #220 

EtherTypEchoMe [EtherTypes] const = #700 

EtherTyplAmAnEcho [EtherTypes] const = #701 

EtherTypPup [EtherTypes] const = #1000 

EViewPtChanged [SaphEmrExceptions] exception(vp: Viewport; newx, newy, neww, newh, 
newRank: Integer) 

EViewPtExposed [SaphEmrExceptions] exception(vp: Viewport; ra: pRectArray; numRectangles: 
Long) 

Examine [Acclnt] function(ServPort: port; RegOrStack: Boolean; Index: Integer; var Value: Integer): 

GeneralReturn 
ExceptVersion [Except] const = '3.4' 

Exec [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port; ProcessName: APath_Name; 

HisCommand: CommandBlock): GeneralReturn 
ExerciseParseEngine [CommandParse] function(ChPool: pCharacter_Pool; PoolLength: 

Char_Pool_lndex; procedure ReadPool(var Pool: pCharacter_Pool; var PLen: 

Char_Pool_lndex); var inputs: pCommand_Word_List; var outputs: pCommand_Word_List; var 

switches: pCommand_Word_List): GeneralReturn 
ExitAUCmdFUes [CommandParse] procedure(var inF: pCommand_File_List) 
ExitCmdFile [CommandParse] procedure(var inF: pCommand_File_List) 
ExitGRError [Pascallnit] exception(GR: GeneralReturn) 
ExitP rog ram [Pascallnit] exception 
Exp [Real Functions] function(X: Real): Real 

Expand PathName [PathName] function(var WildPathName: Wild_Path_Name; ImplicitSearchList: 

Env_Var_Name): GeneralReturn 
ExpandWindow [Sapph] procedure(ServPort: Window) 
ExpLarge [Real Functions] exception(X: Real) 
EXPLICITDEALLOC [AccentType] const = 0 
ExpSmal I [RealFunctions] exception(X: Real) 
Extension_List [PathName] type = string[Extension_String_Size] 
Extension_String_Size [PathName] const = 80 
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ExtractAIIRights [Acclnt] function(ServPort: port; Portlndex: Long; var PortRight: port; var 

PortType: Integer): GeneralReturn 
ExtractEvent [ModGetEvent] function(repMsg: Pointer; var vp: ViewPort; var k: KeyEvent): Boolean 
ExtractSimpleName [PathName] procedure(Name: Path_Name; var StartTerminal: integer; var 

StartVersion: integer) 
Failure [AccentType] const = AccErr+ 24 
FEarray [RunDefs] type = array[Filelndex] of FileEntry 
FHdr_Access_Rights_Offset [SesDiskDefs] const = 56 
File_Data [SesameDefs] type = pointer 

File_Header [SesameDefs] type = packed record FileSize: long; DataFormat: long; PrintName: 
Print_Name; Author: GroupJD; CreationDate: lnternal_Time; AccessID: GroupJD; AccessDate: 
lnternal_Time; FHdr_RESERVED: array[56..64] of integer; end 

FileEntry [RunDefs] type = record FileType: LinkFileType; FileLocation: long; FileBlocks: long; 
FiieName: APath_Name; WriteDate: lntemal_Time; Version: long; end 

Filelndex [RunDefs] type = O..RMAXFILE 

FileKind [Stream] type = (BlockStructured, CharacterStructured) 

FileLength [Code] const = 100 

FileLength [SegDe/s] const = 100 

FileType [Stream] type = packed record Flag: packed record case integer of 0: (CharReady: 

boolean; FEoln: boolean; FEof: boolean; FNotReset: boolean; FNotOpen: boolean; 

FNotRewrite: boolean; FExternal: boolean; FBusy: boolean; FKind: FileKind; FLastWasEof: 

boolean; Funused: 0..63); 1: (skipl: 0..3; ReadError: 0..7); 2: (skip2: 0..15; WriteError: 0..3) end; 

EolCh, EofCh, EraseCh, NoiseGh: ControlChar; OmitCh: set of ControlChar; FileNum: integer; 

Flndex: inieger; Length: integer; BlockNumber: integer; StreamP: pStreamF; LengthlnBlocks: 

integer; LastBlockLength: integer; SizelnWords: integer; SizelnBits: 0..16; ElsPerWord: 0..16; 

Element: record case integer of 1: (C: char); 2: (W: array[0..0] of integer) end end 
FindExtendedFileName [PathName] function(var FiieName: Path_Name; Extension List: 

Extension_List; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean): GeneralReturn 
FindExtendedPathName [PathName] function(var PathName: Path_Name; ExtensionList: 

Extension.List; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var EntryType: 

Entry_Type; var NameStatus: Name.Status): GeneralReturn 
FindFileName [PathName] function(var FiieName: Path_Name; ImplicitSearchList: Env_Var_Name; 

FirstOnly: boolean): GeneralReturn 
FindPathName [PathName] function(var PathName: Path_Name; implicitSearchList: Env_Var_Name; 

FirstOnly: boolean; var EntryType: Entry_Type; var NameStatus: Name_Status): GeneralReturn 
FindTypedName [PathName] function(var PathName: Path_Name; ExtensionList: ExtensionJJst; 

ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var EntryType: Entry_Type; var 

NameStatus: Name_Status): GeneralReturn 
FindWildPathnames [PathName] function(var WildPathName: Path_Name; ImplicitSearchList: 

Env Var_Name; FirstOnly: boolean; NameFlags: Name_Flags; EntryType: Entry_Type; var 

FoundlnFirst: boolean; var DirName: APath_Name; var EntryList: Entry.List; var EntryList_Cnt: 

long): GeneralReturn 
FinEther [Etherilser] procedure 
First_User [AuthDefs] const = 1 

First Block [CFileDefs] type = record FileVersion: integer; FileSize: long; FileTimeStamp: 
lnternal_Time; SymbolAreaSize: long; TextAreaSize: long; DataAreaSize: long; BSSAreaSize: 
long; DestAddr: long; StartAddr: long; MainAddr: long; InitialLocalSize: long; 
StackBase Address: long; StackSizelnPages: long; end 

FirstltemNotDefined [EnvMgrDefs] const = Env_Error_Base + 5 

FIRSTNONRESERVEDPORT [AccentType] const = 3 

FirstUserlndex [Pascallnit] const = 6 

FiveDeep [Accent Type] const = AccErr + 38 
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Floppy ResultStatus [lODefs] type = packed record StatusType: FloppyResultType; Unused: Bit6; 
case FloppyResultType of NoStatus: (); HeadChange, DriveSense, CmdResults: (Unit: Bit2; 
Head: Bit1; case FloppyResultType of DriveSense: (TwoSided: boolean; AtTrackO: boolean; 
DriveReady: boolean; WriteProtected: boolean; DriveFault: boolean); HeadChange, 
CmdResults: (NotReady: boolean; EquipFault: boolean; SeekEnd: boolean; IntrCode: (Normal, 
Abnormal, InvalidCmd, DriveRdyChange); case FloppyResultType of HeadChange: 
(PresentCylinder: Bit8); CmdResults: (NoAddrMark: boolean; NotWritable: boolean; NoData: 
boolean; Unusedl: Bitl ; Overrun: boolean; DataError: boolean; Unused2: Bit1; TrackEnd: 
boolean; NoDataAddrMark: boolean; BadTrack: boolean; ScanFail: boolean; ScanHit: boolean; 
WrongCylinder: boolean; DataCRCError: boolean; ControlMark: boolean; Unused3: Bitl ; 
CylinderlD: Bit8; HeadID: Bit8; SectorlD: Bit8; SectorSizeCode: BitS))) end . 

FloppyResultType [/ODefs]type = (NoStatus, HeadChange, DriveSense, CmdResults) 

FlushEvents [ViewPt] function(ServPort: Viewport): boolean 

FNString [Code] type = String[FileLength] 

FNString [SegDefsj type = String[Filel_ength] 

FontCharWidthVector [ViewPt] procedure(ServPort: Viewport; ch: char; var dx: integer; var dy: 
integer) 

FontHeadOverhead [SapphFileDefs] const = #404 
FontMap [SapphFileDefs] type = tFontMapRec 

FontMapRec [SapphFileDefs] type = packed record Height: integer; Base: integer; Index: 
array[0..#177] of packed record Offset: 0..767; Line: 0..63; Width: integer; end; Filler: 
array[0..1] of integer; Pat: Array[0..0] of integer; end 

FontSize [ViewPt] procedure(ServPort: Viewport; var name: String; var PointSize: integer; var 
Rotation: integer; var FaceCode: integer; var maxWidth: integer; var maxHeight: integer; var 
xOrigin: integer; var yOrigin: integer; var fixedWidth: boolean; var fixedHeight: boolean) 

FontStringWidthVector [ViewPt] procedure(ServPort: Viewport; str: VPStr255; firstCh: integer; 
lastch: integer; var dx: integer; var dy: integer) 

FontWordWidth [SapphFileDefs] const = 48 

ForBootFile [SpawnlnitFlags] const ^ FALSE 

Fork [Acclnt] function(ServPort: port; var HisKernelPort: port; var HisDataPort: port; var Ports: 

PtrPortArray; var Ports_Cnt: long): GeneralReturn- 
Fo rLib File [Spa wnlnitFlags] const = NOT ForBootFile 
FudgeStack [Code] const = #2000 
FuiILn [Stream] function(var F: Text): Boolean 

Full Window State [Sapph] procedure(ServPort: Window; var leftx: integer; var topy: integer; var 
outerwidth: integer; var outerHeigh: integer; var rank: integer; var hasBorder: boolean; var 
hasTitle: boolean; var isListener: boolean; var name: ProgStr; var title: TitStr) 

FwdCode [EtherTypes] const = 2 

GeneralReturn [AccentType] type = integer 

GetAbsoluteDef [CFileDefs] procedure(var BytePtr: long; var ByteAddress: long; var Name: LString) 
GetAbsoluteLocalDef [CF/7eDefe] procedure(var BytePtr: long; var ByteAddress: long; var Name: 
LString) 

GetAsmlong [CFileDefs] function(var ByteAddr: long): long 
Get AsmSt ring [CFileDefs] function(var ByteAddr: long): LString 
GetB [Stream] procedure(var F: Filetype) 
GetBreak [SpiceJString] function: BreakTable 
GetC [Stream] procedure(var F: Filetype) 

GetChainHead [CF/7eDefs] procedure(var BytePtr: long; var AreaDesg: Bit8; var ByteAreaOff: long) 
GetCharacterPool [ExtraCmdParse] procedure(prompt: Cmnd_String; var InputFile: Text; var 

ChPool: pCharacter_Pool; var PoolLength: Char_Pool_lndex) 
GetCmd [ExtraCmdParse] function(prompt: Cmnd_String; SearchTable: pWord_Search_Table; var 

CmdName: Cmnd_String; var inF: pCommand_File_List; var inputs: pCommand_Word_List; var 

outputs: pCommand_Word_List; var switches: pCommand_Word_List; var ErrorGR: 

GeneralReturn): integer 
GetCodeByte [CF/7eDefe] function(var ByteAddr: long): Bit8 
GetCodeWord [CF/7eDe/s] function(var ByteAddr: long): integer 
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GetConfirm [Ext raCmd Parse] function(prompt: Cmnd_String; def: integer; var switches: 

pCommand_Word_List): integer 
GetDateTime [Time] function(ServPort: port): InternaMTime 

GetDiskPartitions [Acclnt] function(ServPort: port; interface: Disklnterface; log.unit: Interfacelnfo; 
var unitnum: Integer; var DevName: DevPartString; var PartL: Pointer; var PartL_Cnt: long): 
GeneralReturn 

GetEnvVariable [EnvMgr] function(ServPort: Port; Name: Env_Var_Name; SearchScope: 
Env_Var_Scope; var Variable: Env_Variable; var Variable.Cnt: long; var VarType: 
Env_Var_Type; var ActualScope: Env_Var_Scope): GeneralReturn 

GetEvent~[V7ewPf] function(ServPort: Viewport; howWait: KeyHowVVait): KeyEvent 

GetEventPort [ModGetEvent] procedure(ServPort: Viewport; howWait: KeyHowWait; retPort: Port) 

GetFullViewport [ViewPt] function(ServPort: Viewport): Viewport 

GetFullWindow [Sapph] function(ServPort: Window): Window 

GetlconViewport [Sapph] procedure(ServPort: Window; var iconvp: Viewport; var width: integer; var 
height: integer) 

GetlconWindow [Sapph] function(ServPort: Window): Window 
GetlOSIeepID [AccCall] function(var SleepID: long): GeneralReturn 

GetlthWordPtr [CommandParse] function(i: long; CmndBlock: CommandBlock): pWord_String 
GetLibraryDef [CFileDefs] procedure(yar BytePtr: long; var LibraryFileName: LString; var 

LibraryTimeStamp: InternaMTime; var LibraryLoc: long) 
GetListenerWindow [Sapph] function(ServPort: Window): Window 
GetOf fsetDef [CFileDefs] procedure(var BytePtr: long; var WdOffsetAmt: long) 
GetParsedUserlnput [ExtraCmdParse] function(promptr Cmnd_String; var inF: 

pCommand_File_List; var inputs: pCommand_Word_List; var outputs: pCommand_Word_List; 

var switches: pCommand_Word_List): GeneralReturn 
GeiPortlndexStatus [Accint] function (ServPort: port; Portlndex: Long; var Backlog: Integer; var 

NWaitingMsgs: Integer; var EWaitingMsgs: Integer; var PortRight: port; var PortType: Integer): 

GeneralReturn 

GetPortStatus [Acclnt] function(ServPort: port; PortRight: port; var Backlog: Integer; var 
NWaitingMsgs: Integer; var EWaitingMsgs: Integer- var Portlndex: Long; var PortType: Integer): 
GeneralReturn 

GetPrimaryDef [CFileDefs] procedure(var BytePtr: long; var SimKind: Bit8; var AreaDesg: Bit8; var 

AreaOffset: long; var SymSize: long; var SymName: LString) 
GetRectangleParms [Acclnt] function(ServPcrt: port; RectPort: port; var BaseAddr: VirtualAddress; 

var ScanWidth: Integer; var BaseX: Integer; var BaseY: Integer; var MaxX: Integer; var MaxY: 

Integer; var IsFont: Boolean): GeneralReturn 
GetRegionCursor [ViewPt] procedure(ServPort: Viewport; regionNum: integer; var cursorlmage: 

CursorSet; var curslndex: integer; var cursFunc: CursorFunction; var track: boolean) 
GetRegionParms [ViewPt] procedure(ServPort: Viewport; regionNum: integer; var absolute: 

boolean; var speed: integer; var minx: integer; var maxx: integer; var miny: integer; var maxy: 

integer; var modx: integer; var posx: integer; var mody: integer; var posy: integer) 
GetScreen Parameters [Sapph] procedure(ServPort: Window; var width: integer; var height: 

integer) 

GetShellCmd [ExtraCmdParse] function(SearchTable: pWord_Search_Table; var CmdName: 
Cmnd.String; var inF: pCommand_File_List; var inputs: pCommand_Word_List; var outputs: 
pCommand_Word_List; var switches: pCommand_Word_List; var ErrorGR: GeneralReturn): 
integer 

GetStringTime [Time] function(ServPort: port; TimeFormat: integer): String 
GetSysFont [ViewPt] function(ServPort: Viewport): Viewport 

GetUserName [Auth] function(ServPort: Port; UserlD: UserJD; var UserName: Auth_Var): 

GeneralReturn 
GetUserTime [Time] function(ServPort: port): User_Time 

GetViewportBit [ViewPt] function(ServPort: Viewport; x: integer; y: integer; var value: boolean): 
boolean 
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GetViewportRectangle [ViewPt] function (ServPort: Viewport; x: integer; y: integer; width: integer; 

height: integer; var Data: pVPIntegerArray; var Data_Cnt: long; var WordsAcross: integer; ux: 

integer; uy: integer): boolean 
GetVPRank [ViewPt] function(ServPort: Viewport): integer 

GetWinNames [Sapph] procedure(ServPort: Window; var names: pWinNameArray; var names_Cnt: 

long; var curListenlndex: integer) 
GetWinProcess [Sapph] function(ServPort: Window): Port 
GlobalProcedure [CFileDefs] const = 3 
GPBuffer [AccentType] type = packed array[1.. 8] of Bit8 

GPIBDevCmdHead [lODefs] type = packed record Options: packed record SetlntOMask: boolean; 
SetlntlMask: boolean; OmitBusConfig: boolean; OmitUnListen: boolean; case boolean of true: 
(HoldOffOnEOI: boolean; unused2: Bit3); false: (OmitGoToStandby: boolean; WaitOnData: 
boolean; ForceEOI: boolean; unusedl: Bit1); end; IntOMask: Bit8; IntlMask: Bit8; PrimAddr: 
BitS; SecAddr: Bit8; case boolean of true: (ReadCount: BitS); false: (); end 

GPIBSenseStatus [lODefs] type = packed record IntStatO: Bit8; IntStatl: Bit8; IntAddrStat: Bit8; 
IntBusStat: Bit8; IntAddrSwch: Bit8; IntCmdPass: Bit8; CurAddrStat: BitS; CurBusStat: Bit8; 
CurAddrSwch: Bit8; CurCmdPass: Bit8; end 

GPIBWriteRegister [lODefs] type = packed record case RegNum: Bit8 of 0: (); 1: (RegVal: Bit8) end 

GR_Error_Type [SaltError] type = (GR_Warning, GR_Error, GR_FatalError) 

GRError [Pascailm't] exception(GR: GeneralReturn) 

GRErrorMsg [SaltError] procedure(GR: GeneralReturn; ER_Type: GR_Error_Type; ProgName: 

String; InMsg: PString; varOutMsg: PString) 
GroupJD [SesameDefs] type = long - 

GRStdErr [SaltError] function(GR: GeneralReturn; ERJype: GR_Error_Type; InMsg: PString; var 

OutMsg: PString): boolean 
GRStdError [SaltError] procedure(GR: GeneralReturn; ERJype: GR_Error_Type; InMsg: PString; 

var OutMsg: PString) 

GRWriteErrorMsg [SaltError] procedure(GR: GeneralReturn; ERJype: GR_Error_Type; ProgName: 
String; InMsg: PString) 

GRWriteStdError [SaltError] procedure(GR: GeneralReturn; ERJype: GR_Error_Type; InMsg: 
PString) 

Header [AccentType] type = packed Array[0..15] of Bit8 

Heap Address [Dynamic] type = record case integer of 0: (Offset: HeapOffset; Segment: 

HeapNumber); 1: (AnyPtr: Pointer); 2: (Longlnt: Long); end 
HeapNumber [Dynamic] type = integer 
HeapOffset [Dynamic] type = integer 

IconAutoUpdate [Sapph] procedure(ServPort: Window; allowed: boolean) 

IconHeight [SapphDefs] const = 64 

I con Width [SapphDefs] const = 64 

IDCIrEtherFilter [Effre/Types] const = EtherlDBase + 3 

IDCIrPupFilter [EtherTypes] const = EtherlDBase + 6 

Identifier [Stream] type = string[ldentLength] 

IdentifyWindow [Sapph] procedure(ServPort: Window) 

IdentLength [Stream] const = 8 

IdentTable [Stream] type = array[0..T] of Identifier 

I DGetEther Address [EtherTypes] const = EtherlDBase + 1 

IdNotDefined [Stream] exception(FileName: SName; Id: Identifier) 

IdNotUnique [Stream] exception(FileName: SName; Id: Identifier) 

IDRCIrEtherFilter [Ef/?er7ypes] const = EtherlDBase + 103 

IDRCIrPupFilter [Etf?e/Types] const = EtherlDBase + 106 

IDRecvEtherPacket [EtherTypes] const = EtherlDBase + 104 

IDRecvPupPacket [EtherTypes] const = EtherlDBase + 107 

IDRGetEtherAddress [EtherTypes] const = EtherlDBase + 101 

IDRSetEtherFilter [Effterfypes] const = EtherlDBase + 102 

IDRSetPupFilter [Etf?er7ypes] const = EtherlDBase + 105 



16 



IDSendEtherPacket [Effterfypes] const = EtherlDBase + 4 
IDSendPupPacket [EtherTypes] const = EtherlDBase + 7 
IDSetEtherFilter [EtherTypes] const = EtherlDBase + 2 
IDSetPupFilter [EtherTypes] const = EtherlDBase + 5 
UlegalBacklog [AccentType] const = AccErr+ 10 
IllegalScan Width [AccentType] const = AccErr + 55 
Imp Array [RunDefs] type = packed array [0.. 4096] of Seglndex 
lmplndex[/?u/7Defs]type = 0..RMAXIMPORT 

ImpNode [Code] type = record Sid: SNArray; FilN: pFNString; XGP: integer; XSN: integer; Seg: 

pSegNode; Next: plmpNode end 
Impossible [ViewPt] exceptions: String) 

ImproperEntryType [SesameDefs] const = Sesame_Error_Base + 1 1 

in_out_separator_char [CommandParse] const = 

InactiveSegment [AccentType] const = AccErr + 47 

Index 1 Unquoted [PathName] function(S: Wild_Path_Name; C: char): integer 

Indexlnterpose [Acctnt] function(ServPort: port; MyPort: Port; Hislndex: Long; var HisPort: Port): 

GeneralReturn 
Inf [SpiceJString] const = -32742 
InitAccInt [Acclnt] procedure(RPort: port) 
InitAuth [Auth] procedure(RPort: port) 

InitCmdFile [CommandParse] procedure(var inF: pCommand_File_List) 

InitCommandParse [CommandParse] procedure 

InitDynamic [Dynamic] procedure 

InitEnvMgr [EnvMgr] procedure(RPort: port) 

InitEther [EtherUser] procedure(RPort: port; Heap: integer) 

InitExceptions [Except] procedure 

Initial [Spice_String] function(Str1 , Sjr2: PString): boolean 

InitializedSymbo! [CFHeDefs] const = 5 

Initio [10] procedure(RPort: port) ■ . 

InitMsgld [Pascallnit] const = 32896 

InitMsgN [MsgN] procedure(RPort: port) 

InitMsgSize [Pascallnit] const = WORDSIZE(lnitMsgType)*2 

InitMsgType [Pascallnit] type = RECORD Head: Msg; DefaultType: TypeType; DeflnName: 
STRING[255]; DefOutName: STRING[255]; PassPortType: TypeType; PassedPorts: 
PtrPortArray; UWinSharedType: TypeType; UWinShared: Boolean; EMType: TypeType; EMPort: 
Port; WindowType: TypeType; UserWindow: Port; TSType: TypeType; UserTS: Port; 
WordCountType: TypeType; WordCount: long; WordDirlndexType: TypeType; WordDirlndex: 
long; WordArrayPtrType: TypeType; WordArrayPtrEltSize: integer; WordArrayPtrTName: 
integer; WordArray.Cnt: long; WordArrayPtr: pCharacter_Pool; ComputeEnvType: TypeType; 
ComputingEnvironment: Long; END 

InitNetlOMB [NetWMB] procedure(RPort: port) 

InitPascal [Pascallnit] procedure 

InitProcess [Pascallnit] procedure(AmlClone: BOOLEAN) 

InitProcMgr [ProcMgr] procedure(RPort: port) 

InitSapph [Sapph] procedure 

InitSesame [Sesame] procedure(RPort: port) 

InitSesDisk [SesD/s/(] procedure(RPort: port) 

InitStream [Stream] procedure 

InitTime [Time] procedure(RPort: port) 

InitTS [TS] procedure(RPort: port) 

InitViewPt [ViewPt] procedure 

InitWordSearchTable [CommandParse] procedure(var table: pWord_Search_Tab!e; CaseSensitive: 
boolean) 

In Ports [Pascallnit] var: ptrPortArray 
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lnPorts_Cnt [Pascallnit] var: long 

Insert A IIRights [Acclnt] function(ServPort: port; Portlndex: Long; PortRight: port; PortType: 

Integer): GeneralRetum 
InsertChars [Spice_String] procedure(Source: PString; var Dest: PString; Index: Integer) 
InterceptSegmentCalls [Acclnt] function (Sen/Port: port; var OldSysPorts: PtrAIIPortArray; var 

OldSysPorts_Cnt: long; var SysPorts: PtrPortArray; var SysPorts_Cnt: long): GeneralRetum 
Interfacelnfo [AccentType] type = Packed Record Case Disklnterface Of EIO, CIO, FlopDrives: 

(Unit: Integer); ENet: (EAddr: Packed Array[0..2] of integer); End 
lnternal_Time [TimeDefs] type = record Weeks: integer; MSeclnWeek: long; end 
Intr [^ccemrype] const = AccErr+12 

InvalidateMemory [Acclnt] function (ServPort: port; Address: VirtualAddress; NumBytes: Long): 
GeneralRetum 

InvalidDirectoryVersion [SesameDefs] const = Sesame_Error_Base + 6 
InvalidVersion [SesameDefs] const = Sesame_ErrorJ3ase + 5 
InxCase [Except] exception 

IO_Version [10] function(SeryPort: ServerNamePort): String 
lOBadBaudRate [lODefs] const = IOErr+ 12 
lOBadBufferSize [lODefs] const = lOErr + 35 
JOBadCmdBlkCount [lODefs] const = !OErr + 8 
lOBadCylinderNumber [lODefs] const = IOErr + 21 
lOBadDataByteCount [lODefs] const = IOErr + 9 
lOBadHeadNumber [lODefs] const = IOErr + 22 
lOBadPortReference [lODefs] const = IOErr + 6 
!OBadReg:sterNumber [lODefs] const - IOErr+10 
IQBadSectorNumber [/OOe/s] const = IOErr + 20 
lOBadTrack [/ODe/s] const = IOErr + 31 
lOBadUserEventPort [lODefs] const = iOErr + 5 
IOBaseMsg!D [lODefs] const = 4000 
lOCircBufOverFlow [lODefs] const = !OErr+ 17 

lOCmdBlk [tODefs] type = packed record CmdIDTag: long; case integer of 0: (case integer of 0: 
(CmdByte: packed array[0..0] of Bit8); 1: (CmdWord: packed array[0..0] of integer); 2: 
(WriteReg: packed array[stretch(0)..stretch(0)] of packed record RegNum: Bit8; RegVal: Bits 
end)); 1: (case lOCommand of lOSetAttention: (GPIBEnableATN: boolean); lOSetStream: 
(GPlBEnableStream: boolean: GPIBBlockingFactor: integer); lOSetBufferSize: (GPIBBufferSize: 
long); lOWriteRegisters: (GPIBWriteReg: packed array[stretcn(0)..stretch(0)] of 
GPIBWriteRegister); lODevRead, lODevWrite: (GPIBDevCmdBlk: GPIBDevCmdHead)); 2: (case 
lOCommand of lOSetAttention: (RS232EnableATN: boolean); lOSetStream: 
(RS232EnableStream: boolean; RS232BlockingFactor: integer); lOSetBufferSize: 
(RS232BufferSize: long); lOSetBaud: (RS232TxBaud: Bit8; RS232RxBaud: Bit8); 
lOWriteRegisters: (RS232WriteReg: packed array[stretch(0)..stretch(0)] of SIOWriteRegister)); 
3: (case lOCommand of lOSetAttention: (SpeechEnableATN: boolean); lOSetBufferSize: 
(SpeechBufferSize: long); lOSetBaud: (SpeechTxRate: integer); lOWriteRegisters: 
(SpeechWriteReg: packed array[stretch(0)..stretcn(0)] of SIOWriteRegister)); 4: (case 
lOCommand of lOSetAttention: (FloppyEnableATN: boolean); lOSetDensity: (FloppyDensity: 
DensityType); lORead, lOWrite, lOFormat, lOSeek, lORecalibrate, lOReadID, lOSenseDrive: 
(FloppyUnit: Bit8; FloppyHead: Bit8; case lOCommand of lORead, lOWrite, lOFormat, lOSeek: 
(FloppyCylinder: Bit8; case lOCommand of lORead, lOWrite: (FloppySector: Bit8); lOFormat: 
(FloppyFmtData: Bit8)))) end 

lOCommand [lODefs] type = (lOSense, lOReset, lOWriteRegisters, lOFIushlnput, lOFIushOutPut, 
lORead, lOWrite, lOWriteEOI, lOReadHiVol, lOWriteHiVol, lODevRead, lODevWrite, lOSetBaud, 
lOSetStream, SOSetAttention, lOAbort, lOSuspend, lOResume, lOSeek, lORecalibrate, 
lOFormat, lOReadID, lOSenseDrive, lOSetDensity, lOSetBufferSize, lONullCmd) 

lOCylinderMisMatch [lODefs] const = IOErr + 32 

lODataCRCError [lODefs] const = IOErr + 29 

lODeviceNotFree [lODefs] const = IOErr + 3 

IQDevlceNotReady [lODefs] const = IOErr + 24 
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lODeviceNotWritable [lODefs] const = IOErr + 27 
lODriveReadyChanged [lODefs] const = IOErr + 33 
IOEBSE [EtherTypes] const = #4 
IOEFUZ [BherTypes] const = #5 
IOEIOC [EtherTypes] const = #0 
lOEndOfFrame [/ODefs] const = IOErr+18 
lOEndOf Input [lODefs] const = IOErr+ 19 
IOEPTL [EtherTypes] const = #2 
IOERNT [EffrerTypes] const = #3 
lOErr [lODefs] const = lOBaseMsgID 
I OETI M [Efherfypes] const = #1 

lOEvent [lODefs] type = (lOReply, AsyncData, Attention, Distress, Acknowledge) 

lOFramingError [lODefs] const = IOErr+16 

lOGetTime [Clock] function: long 

lOHeaderCRCError [lODefs] const - IOErr + 30 

lOlllegalCommand [lODefs] const = IOErr + 7 

lOlnvalidlOPort [lODefs] const = IOErr + 4 

lOMessage [lODefs] type = record Head: Msg; Body: array[0..1023] of integer; end 

lOMissingDataAddrMark [lODefs] const = IOErr + 25 

lOMissingHeaderAddrMark [lODefs] const = IOErr + 26 

lONoDataFound [lODefs] const = IOErr+ 13 

!ONotEnoughData [lODefs] const = IOErr + 34 

lONotEnoughRoom [lODefs] const = IOErr + 11 

lOOverRun [lODefs] const = IOErr+14 

lOParityError [lODefs] const = IOErr+15 

lOSectorNotFound [lODefs] const = IOErr + 28 

lOSenseStatusBlk [lODefs] type = packed record StatusCnt: BitS; case integer of 1: (GPIBStatus: 
GPIBSenseStatus); 2: (SlOStatus: SlOSenseStatus); 3: (FloppyStatus: FloppyResultStatus); 0: 
(case integer of 1: (StatusByte: packed array[stretch(1)..stretch(1)] of BitS); 2: (StatusWord: 
packed array[stretch(1)..stretch(1)] of integer); 3: (SByte: packed array[stretch(1)..stretch(12)] 
of Bit8)) end 

lOStatusBlk [lODefs] type = packed record CmdlDTag: long; HardStatus: integer; SoftStatus: 
integer; CmdBytesTransferred: long; DataBytesTransf erred: long; DeviceStatus: 
lOSenseStatusBlk; end 

lOSuccess [lODefs] const = SUCCESS 

lOTimeOut [lODefs] const = IOErr + 2 

lOUndefinedError [/ODefe] const = IOErr+1 

lOUndeterminedEquipFault [lODefs] const = IOErr + 23 

IsChild [AccentType] const = AccErr + 36 

IsParent [AccentType] const = AccErr + 35 

IsPattern [PMatch] function(var str: pms255): boolean 

IsQuotedChar [PathName] function(S: Wild_Path_Name; Index: integer): boolean 
IsStreamDevice [Stream] function(S: SName): integer 
KBFIushBoardOutput [Stream] procedure(var F: FileType) 
KERNELPORT [AccentType] const = 1 

KeyEvent [SapphDefs] type = record Cmd: 0..255; Ch: char; region: Integer; X, Y: integer; end 

KeyHowWait [SapphDefs] type = (KeyWaitDiffPos, KeyDontWait, KeyWaitEvent) 

KeyKind [SapphFileDefs] type = (Standard, Control, Mouse, Nonstandard) 

KeyMap [SapphFileDefs] type = packed record hashkey: KeyState; cmd: 0..255; chval: char; escty: 

EscKind; next: 0..MAXMAP; region: 0..WILDREGION; end 
KeyState [SapphFileDefs] type = packed record case integer of 1: (code: 0..#177; cntrlon: 

boolean; special: boolean; EscCI: 0..#7; mbuttons: 0..#17); 2: (fullCode: 0..#777; 

escCIAndMButtons: 0.. # 1 77); 3: (ks: integer); end 
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KeyTransTab [SapphFileDefs] type = packed record Version: 0..255; CmdState: 0..255; 
RawKeyBoard: boolean; EscState: 0..7; NumMaps: 0..MAXMAP; HashMask: integer; Len: 
integer; Class: packed array[0..MaxCode] of KeyKind; Map: packed array[1..1] of KeyMap; end 

KeyTranVersion [SapphFileDefs] const = 3 

KOEName [CFileDefs] function(x: Bit8): string 

LandScapeBitHeight [SapphDefs] const = 1024 

LandSeapeBitWidth [SapphDefs] const = 1280 

Language [Code] type = (Pascal, Fortran, imp) 

Language [SegDe/s] type = (Pascal, Fortran, Imp) 

LargeNumber [Stream] exception(FileName: SName) 

Large Real [Stream] exception(FileName: SName) 

LastRecMsg [IPCRecordiO] van RRecMsg 

LibraryDef [CFileDefs] const = 90 

LineFunct [SapphDefs] type = (DrawLine, EraseLihe, XORLine) 

LinkFileType [FtunDefs] type = (SegFiie, RunFile, DataFile, SymsFileType, QMapFileType) 
LinkTypeStr [ALoad] function(typ: LinkFileType): string 

ListLoggedinUsers [Auth] function(ServPort: Port; var UserList: Logged_User_List; var 

UserList_Cnt: long): GeneralReturn 
LMsg [AccCall] type = record H: Msg; D: array[1 ..MAXMSGDATA] of integer; end 
Ln [RealFunctions] function(X: Real): Real 

Load Font [ViewPt] function(ServPort: Viewport; fileName: VPStr255): Viewport 
LoadVPCursors [ViewPt] function(ServPort: Viewport; fileName: VPStr255; var numCursors: 
integer): CursorSet 

LoadVPPicture [ViewPt] function(ServPort: Viewport; fileName: VPStr255; width: integer; height: 

integer): Viewport 
LocalLabe! [CF/7eDe/s] const = 6 
LocalProcedure [CFileDefs] const = 2 
LOCALPT [AccentType] const = 2 

LockPorts [AccCall] function(LockThem: boolean; Ports: ptrLPortArray; PortsCount: long): 

GeneralReturn " - 

Log1 0 [RealFunctions] function(X: Real): Real 

Logged User [AuthDefs] type = record UserlD: UserJD; UserName: Auth_Var; MachineName: 
Auth_Var; End 

Logged_User_Array [AuffrDefe] type = array[0..0] of LoggedJJser 
Logged_User_List [A uf /?De/s] type = tLogged_User_Array 

LoginUser [Auth] function(ServPort: Port; UserName: Auth_Var; Password: Auth_Var; 

MachineName: Auth_Var; var UserAuthPort: Port; var UserRec: UserRecord): GeneralReturn 
LOGMSGS [AccCall] const = false 
Logout User [Auth] function(ServPort: Port): GeneralReturn 
LogSmall [ftea/Fi/ncf/ons] exception(X: Real) 

Lookup [MsgN] function(ServPort: Port; PortsName: string; var PortsID: Port): GeneralReturn 

Lop [Spice_String] function(var Str: PString): PString 

LPortArray [AccentType] type = array[stretch(0)..stretch( #77777)] of Port 

LString [CFileDefs] type = String[255] 

M_CHILDFORKREPLY [AccentType] const = #100 + #11 

M_DEBUGMSG [AccentType] const = # 1 00 + # 1 2 

M_GENER A LKERNELREPLY [AccentType] const = #100 + 6 

M_KERNELMSGERROR [AccentType] const = #100 + 7 

M_MSG ACCEPTED [AccentType] const = #100 + 2 

M_OWNERSHIPRIGHTS [AccentType] const = #100 + 3 

M_PARENTFORK REPLY [AccentType] const = #100+ #10 

M_PORTDELETED [AccentType] const =# 100 + 1 

M_RECEIVERIGHTS [AccentType] const = #100 + 4 

Machine_Name [AuthDefs] type = String[255] 
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MachinelnfoRec [Bootlnfo] type = packed record case boolean of false: (int: integer); true: 
(WCSSize: 0..15; Reserved: 0..3; IsPortrait: Boolean; BoardRev: 0..31; OldZ80: boolean; 
CMUNet: boolean; Reserved2: 0..3) end 

MAINKLUDGE [RunDefs] const = 255 

MakeViewport [ViewPt] function(ServPort: Viewport; x: integer; y: integer; w: integer; h: integer; 

rank: integer; memory: boolean; courteous: boolean; transparent: boolean): Viewport 
MakeWinListener [Sapph] procedure(ServPort: Window) 
MapFul! [AccentType] const = AccErr + 25 
MAPNIL [SapphFileDefs] const = 0. 
Max_QmapRoutines [QMapDefs] const = 251 
Max_SymRoutines [SymDefs] const = 251 
MaxJUsers [AuthDefs] const = 1023 
MAX BACKLOG [AccentType] const = 63 
MaxCmndString [CommandParse] const = 255 
MaxCode [SapphFileDefs] const = 127 + 16 
MaxCoord [SapphDefs] const = 16000 
MAX DEVICES [AccentType] const = 5 
MAX DISKS [AccentType] const = 4 
MAXDPCHARS [AccentType] const = 25 
MaxEtherWords [EtherTypes] const = 748 
MAXLOGMESS [AccCall] const = 20 
MAXMAP [SapphFileDefs] const = 511 
MAXMSGDATA [AccCall] const = 20 
MaxNumRectangles [SapphDefs] const = 256div4 
MAXPARTCHARS [AccentType] const --= 8 
MAX PARTITIONS [AccentType] const = 10 
MAX PORTS [Accent Type] const = 256 
MAXPROCS [AccentType] const = 63 
MaxPStringSize [SpicejString] const = 255 
MaxPupWords [EtherTypes] const = 533 
MaxSignal [ProcMgrDefs] const = SignalBase + 63 
MaxSize [SapphDefs] const = 16000 
MemFault [AccentType] const = AccErr + 6 
MemProtection [Accent Type] type = READONLY.. READWRITE 

MessagesWaiting [AccCall] function(MsgType: long; var Ports: ptrLPortArray; var PortsCount: 

long): GeneralReturn 
MicroFailure [AccentType] const = AccErr + 41 
Microseconds [Accent Type] type = long 
MILLIPERTIC [SapphFileDefs] const = 17 
MinCoord [SapphDefs] const = -16000 
MinEtherWords [EtherTypes] const = WordSize(EtherHeader) 
M In Pup Words [EtherTypes] const = WordSize(PupHeader) + 1 
MinSignal [ProcMgrDefs] const = SignalBase 

ModlfyRegicn [ViewPt] procedure(ServPort: Viewport; regionNum: integer; leftx: integer; topy: 

integer; width: integer; height: integer) 
ModifyVP [ViewPt] procedure(ServPort: Viewport; newlx: integer; newty: integer; newwidth: integer; 

newheight: integer; newrank: integer; wantVpChEx: boolean) 
ModlfyWindow [Sapph] procedure(ServPort: Window; newleftx: integer; newtopy: integer; 

newouterwidth: integer; newouterheight: integer; newRank: integer) 
ModNameLength [RunDefs] const = 19 
ModSt ring [RunDefs] type = String [ModNameLength] 

Move Words [AccCall] function(SrcAddr: VirtualAddress; var DstAddr: Virtual Address; NumWords: 

long; Delete: boolean; Create: boolean; Mask: long; DontShare: boolean): GeneralReturn 
M Parity [Except] exception 



21 



Msg [AccentType] type = record SimpleMsg: boolean; MsgSize: long; MsgType: long; LocalPort: 

Port; RemotePort: Port; ID: long; end 
MsgClrEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgClrPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgEtherPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; Packet: 

EtherPacket; END 
MsgGetEther Address [EtherTypes] type = RECORD Head: Msg END 
Msg Index [Pascal Init] const = 5 
Msglnterrupt [AccentType] const = AccErr + 43 

MsgLog [AccCall] type = record Init: integer; MsgsSent: long; MsgsRec: long; NxtMsg: integer; 
LMsgs: array[0..MAXLOGMESS] of record Sent: boolean; InProg: boolean; GR: GeneralReturn; 
M: LMsg; end; end 

MsgPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; END . 

MsgPortStatus [MsgN] function(ServPort: Port; PortsID: Port; var GlobalPort: long; var Owner: long; 
var Receiver: long; var SrcID: long; var SeqNum: long; var NetWaiting: boolean; var 
NumQueued: integer; var Blocked: boolean; var Locked: boolean; var RecvQueue: integer; var 
DataOffset: long; var InSrcID: long; var InSeqNum: long): GeneralReturn 

MsgPupPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; Packet: PupPacket; 
END 

MsgRClrEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TAnswer: TypeType; Answer: BOOLEAN END 
MsgRCIrPupFHter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TAnswer: TypeType; Answer: Boolean END 
Msg RecvEthe rPacket [Ether Types] type = MsgEtherPacket 
MsgRecvPupPacket [EtherTypes] type — MsgPupPacket 

Msg RGetEther Address [EtherTypes] type = RECORD Head: Msg; TEther Address: TypeType; 

EtherAddress: INTEGER END 
MsgRSetEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TAnswer: TypeType; Answer: BOOLEAN END 
MsgRSetPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TAnswer: TypeType; Answer: Boolean END 
MsgSendEtherPacket [EtherTypes] type = MsgEtherPacket 
Msg Send Pup Packet [EtherTypes] type = MsgPupPacket 

MsgSetEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgSetPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgTooBig [AccentType] const = AccErr + 20 
MulOvfl [Except] exception 

MultiLevelProgress [WindowUtils] procedure(Level: integer; Current, Max: Long) 

MultiStreamProgress [WindowUtils] procedure(Level: integer; var F: File) 

Name_Flags [SesameDefs] type = 0!.#3 

Name_Status [SesameDefs] type = 0..#7 

NameAmbiguous [ProcMgrDefs] const = ProcMgrBase + 8 

NameBase [NameErrors] const = 1000 

NameNotCheckedln [NameErrors] const = NameBase +1 

NameNotFound [SesameDefs] const = SesameJError_Base + 1 

NameNot You rs [NameErrors] const = NameBase + 0 

NameServerPort [Pascallnit] var: port 

NetlOMBRecvServer [NetWMBRecvServer] function(lnP, RepP: POINTER): boolean 
Net_Version [NetWMB] function(ServPort: ElOPort): String 
NetFail [AccentType] const = AccErr + 11 
NETWORKTROUBLE [AccentType] const = 2 
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NewP [Dynamic] procedure(S: HeapNumber; A: integer; var Where: pointer; L: integer) 

NewToOldTime [OldTimeStamp] function(NewTime: InternaMTime): TimeStamp 

NextExtension [PathName] function(var EList: Extension_List): string 

NextOp [Except] exception 

NFIag_Deleted [SesameDefs] const = #000001 

NFIag_NoNormal [SesameDefs] const = #000002 

NFlag_RESERVED [SesameDefs] const = #177774 

NilPointer [Dynamic] exception 

NoJJser [AuthDefs] const = 0 

No Access [SesameDefs] const = Sesame_Error_Base + 9 
NoAvailabJePages [AccentType] const = AccErr + 37 
NoChildren [ProcMgrDefs] const = ProcMgrBase + 6 
NoMorePorts [AccentType] const = AccErr + 9 
NO REPLY [AccentType] const = 4 
NORMALMSG [AccentType] const = 0 
NormMsg [Except] exception 

NotADirectory [SesameDefs] const = Sesame_Error_Base + 1 2 
NotAFile [SesameDefs] const = Sesame_Error_Base + 8 
Not A Font [AccentType] const = AccErr + 58 
NotAnlPCCall [AccentType] const = AccErr+ 17 
Not A Port [AccentType] const = AccErr + 7 
Not ASystem Add ress [AccentType] const = AccErr + 50 
NotAUserAddress [AccentType] const = AccErr + 51 
NotBoolean [Stream] exception(FileName: SName) 
NotCurrentProcess [AccentType] const = AccErr + 28 
NotEnoughRoom [AccentType] const = AccErr + 16 
Notldentifier [Stream] exception(FileName: SName) 
NotNumber [Stream] exception (FileName: SName) 
NotOpen [Stream] exception 

NotPortReceiver [AccentType] const = AccErr+14 
Not Real [Stream] exception(FileName: SName) 
NotReset [Stream] exception(FileName: SName) 
NotRew rite [Stream] exception(FileName: SName) 
NotSamePartition [SesameDefs] const = Sesame_Error_Base + 1 0 
NotTextFile [Stream] exception(FileName: SName) 
NotYourChild [AccentType] const = AccErr + 21 
NStat_Deleted [SesameDefs] const = #000001 
NStatJHigh [SesameDefs] const = #000002 
NStat_Low [SesameDefs] const = #000004 
NStat^RESERVED [SesameDefs] const = #177770 
NTIMERS [SapphFileDefs] const = 20 

Null_CornmandBlock [CommandDefs] function: CommandBlock 
HULLPORJ [AccentType] const = 0 
NULLViewPort [SapphDefs] const = NullPort 
NullWindow [SapphDefs] const = NullPort 
NUMMSGTYPES [AccentType] const = 2 
NUMPRIORITIES [AccentType] const = 16 
NumProgressBars [SappftDefs] const = 2 

NUMQUEUES [AccentType] const = NUMSLEEPQS + NUMPRIORITIES + 5 
NUMSLEEPQS [AccentType] const = 32 
OFFSCREEN [SapphDefs] const = -32002 
OFFSETBASE [CFileDefs] const = 16000 
OffsetDef [CFileDefs] const = 11 
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OldCurrentTime [OldTimeStamp] function: TimeStamp 
OldToNewTime [OldTimeStamp] function(OldTime: TimeStamp): lnternal_Time 
OpenCmdFile [CommandParse] function(FileName: pWord_String; var inF: pCommand_File_List): 
GeneralRetum 

OpenIO [10] function(ServPort: ServerNamePort; var lOPort: ServerlOPort; UserPort: UserEventPort): 

GeneralRetum 
Other [AccentType] const = AccErr+ 13 
OutOf ImagSegments [AccentType] const = AccErr + 49 
OutOflPCSpace [AccentType] const = AccErr + 23 
OutOf RectangleBounds [AccentType] const = AccErr + 54 
OUTREGION [SapphDefs] const = 0 
OvflLI [Except] exception 
OvrReal [Except] exception 
Owner_Read_Access [SesDiskDefs] const = #1 
Owner_Write_Access [SesDiskDefs] const = #2 
PacketBytes [EtherTypes] const = 2 *WordSize(Msg Packet) 

Pad [SpiceJString] function(Str: PString; TotalLen: integer; PadCh: Char; Where: integer): Pstring 
PAGEBITS [AccentType] const = 8 
PAGEBYTESIZE [AccentType] const = 5t2 
PAGEWORDSIZE [AccentType] const = PAGEBYTESIZE div 2 

ParseChPool [CommandParse] function(ChPool: pCharacter_Pool; PoolLength: Char_PoolJndex; 

var inputs: pCommand_Word_List; var outputs: pCornmand_Word_List; var switches: 

pCommand_Word_List): GeneralRetum 
ParseCommand [CommandParse] function(var inputs: pCommand_Word_List; var outputs: 

pCommand_WordJJst; var switches: pCommand_Word_List): GeneralRetum 
ParseEther Address [EtherUser] function(MsgP: pMsgRGetEtherAddress): INTEGER 
ParseEtherClear [EtherUser] function(MsgP: pMsgRCIrEtherFilter; VAR Typ: INTEGER): BOOLEAN 
ParseEtherFilter [EtherUser] function(MsgP: pMsgRSetEtherFilter; VAR Typ: INTEGER): BOOLEAN 
ParseEtherPackei [EtherUser] function(MsgP: pMsgRecvEtherPacket; Packet: POINTER): 

INTEGER 

ParselllegaiCharlnEnvNarn [CommandDefs] const = CmdParse_Error_Base + 1 9 
ParselHegalCharlnlnRed [CommandDefs] const = CmdParse_Error_Base + 22 
ParselllegalCharlnOutRed [CommandDefs] const = CmdParse_Error_Base + 23 
ParselllegalCharlrtQuoted [CommandDefs] const = CmdParse_Error_Base + 20 
ParseHlegalCharlnShPara [CommandDefs] const = CmdParse_Error_Base + 24 
ParselllegalCharlnSwName [CommandDefs] const = CmdParse_Error_Base+ 17 
ParselllegalCharlnSwVal [CommandDefs] const = CmdParse_Error_Base+ 18 
ParselnternalFault [CommandDefs] const = CmdParse_Error_Base + 15 
ParseOnlyCmd Allowed [CommandDefs] const = CmdParse_Error_Base + 21 
ParsePupCIear [EtherUser] function(MsgP: pMsgRCIrPupFilter; VAR Socket: Long): BOOLEAN 
ParsePupFilter [EtherUser] function(MsgP: pMsgRSetPupFilter; VAR Socket: Long): BOOLEAN 
ParsePupPacket [EtherUser] procedure(MsgP: pMsgRecvPupPacket; PupPacket: POINTER) 
ParseWordTooLong [CommandDefs] const = CmdParse_Error_Base + 18 

PartData [SesDiskDefs] type = record PartName: DevPartString; DevName: DevPartString; 

PartRootDir: SegID; PartNumFree: long; PartMounted" boolean; PartStart: DiskAddr; PartEnd: 

DiskAddr; PartKind: PartitionType; PartExUse: boolean; end 
PartDisMount [Acclnt] function(ServPort:port): GeneralRetum 
PartDList [SesDiskDefs] type = array[1 ..MAXPARTITIONS] of PartData 

Partlnfo [AccentType] type = record PartHeadFree: DiskAddr; PartTailFree: DiskAddr; PartinfoBlk: 
DiskAddr; PartRootDir: SegID; PartNumOps: integer; PartNumFree: long; PartlnUse: boolean; 
PartMounted: boolean; PartDevice: integer; PartStart: DiskAddr; PartEnd: DiskAddr; PartKind: 
PartitionType; PartName: PartString; PartExUse: boolean; Unused: long; PartDiskRel: boolean; 
end 

PartitionFull [AccentType] const = AccErr + 59 
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PartitionType [AccentType] type = (Root, UnUsed, Segment, PLX) 
PartList [AccentType] type = array[1 ..MAXPARTITIONS] ofPartlnfo 

PartMount [Acclnt] function(ServPort: port; PartName: DevPartString;.ExUse: Boolean; var Rootld: 
SegID; var PartKind: PartitionType; var PartPort: port; var PartS: DiskAddr; var PartE: DiskAddr): 
General Return 

Pa rtSt ring [Accent Type] type = string[MAXPARTCHARS] 
PascalProcedure [CFileDefs] const = 1 
PASCALRECORD [IPCRecordIO] const = #12345 
PassType [AuthDefs] type = Long 

PassWordlncorrect [AuthDefs] const = Auth_Error_Base + 2 

PastEof [Stream] exception(FileName: SName) 

Path_Name [PathName] type = string[Path_Name_Size] 

Path_Name_Size [SesameDefs] const = 255 

PattDebug [PMatch] procedure(v: boolean) 

Pattern [SapphFileDefs] type = tPaiternMap 

PatternMap [SapphFileDefs] type = array[CL63, 0..3] of integer 

PattMap [PMatch] function(var str, inpatt, outpatt, outstr: pms255; fold: boolean): boolean 
PattMatch [PMatch] function(var str, pattern: pms255; fold: boolean): boolean 
pBit32 [AccentType] type = tBit32 

pCharacter_Pool [CommandDefs] type = tCharacter_Pool 

PCInData [CF/7eDefs] const = DataState 

PCInData2 [CFileDefs] const = Data2State 

PCInText [CFileDefs] const = TextState 

pCmnd_St ring [CommandParse] type = tCmnd_String 

pCommand_File_List [CommandParse] type = tCommand_File_List 

pCommand_Word_List [CommandParse] type = tCommand_Word_List 

PCStateName [CFileDefs] function(x: Bit8): string 

pCursorArrayRec [SapphFileDefs] type = tCursorArrayRec 

pEIOMessage [EtherWDefs] type = tE10Message 

pEIOPacket [EtherWDefs] type = tE10Packet 

pEtherPacket [EtherTypes] type = tEtherPacket 

pFEarray [RunDefs] type = tFEarray. 

pFirstBlock [CFileDefs] type = tFirstBlock 

pFNString [Code] type = tFNString 

PhysicalAddress [AccentType] type = long 

plmpA r ray [RunDefs] type = tlmpArray 

plmplnfo [SegDefe] type = tClmplnfo 

pi mpNode [Code] type = tlmpNode 

plOCmdBlk [lODefs] type = tlOCmdBlk 

pi OMessage [lODefs] type = tlOMessage 

pKeyTab [SapphFileDefs] type = tKeyTransTab 

pLMsg [AccCall] type = tLMsg 

PMAddCtlWindow [ProcMgr] function(ServPort: port; CtlWindow: window; NewCtlWindow: 

window): GeneralReturn 
PMBroadcast [ProcMgr] function(ServPort: port; s: string):'GeneralReturn 

PMChangeGroup [ProcMgr] function(ServPort: port; ProcPort: port; NewWindow: window): 
GeneralReturn 

PM Debug [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 

PMDebugProcess [ProcMgr] function(ServPort: port; ProcPort: port;-Reason: long): GeneralReturn 

PMGetProcPorts [ProcMgr] function(ServPort: port; ProcPort: port; var hisWindow: window; var 

hisTypescript: typescript; var hisEMConn: port): GeneralReturn 
PMGetStatus [ProcMgr] function(ServPort: port; ProciD: string; var Stats: StatList; var Stats_Cnt: 

long): GeneralReturn 
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PMGetTimes [ProcMgr] function(ServPort: port; ProcPort: port; var LoadTime: long; var RunTime: 

long; var ElapsedTime: long): GeneralReturn 
PMGetWaitID [ProcMgr] function (ServPort: port; ProcPort: port; var WaitID: long): GeneralReturn 
PMGroupSignal [ProcMgr] procedure(ServPort: port; CtlWindow: window; Signal: SignalName) 
PMIndex [Pascallnit] const = 4 

PMKill [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
PM Po rt [Pascallnit] var: port 

PMProcessSignal [ProcMgr] procedure(ServPort: port; ProcPort: port; Signal: SignalName) 
PMRegisterProcess [ProcMgr] function(ServPort: port; HisKPort: port; HisDPort: port; ProgName: 

string; HisWindow: window; HisTypescript: typescript; EMConn: port; Parent: port): 

GeneralReturn 

PMRemoveCtlWindow [ProcMgr] function(ServPort: port; CtlWindow: window): GeneralReturn 
PMResume [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
pms255 [PMatch] type = String[255] 

PMSaveLoadTime [ProcMgr] function (ServPort: port; ProcPort: port; LoadTime: long): 
GeneralReturn 

PMSetDebugPort [ProcMgr] function(ServPort: port; ProcPort: port; DebugPort: port; 

DebugSignalOnly: boolean): GeneralReturn 
PMSetPriority [ProcMgr] function(ServPort: port; ProcID: string; priority: integer): GeneralReturn 
PMSetSignal [ProcMgr] function(ServPort: port; ProcPort: port; Signal: SignalName; Action: 

SignalAction): GeneralReturn 
PMSetSignalPort [ProcMgr] function(ServPort: port; ProcPort: port; SignalPort: port): 

GeneralReturn 

pMsgClrEtherFHter [EiherTypes] type = tMsgClrEtherFilter 
pMsgClrPupFilter [EiherTypes] type = tMsgClrPupFilter 
pMsgGetEtherAddress [EiherTypes] type = tMsgGetEtherAddress 
pMsgLog [AccCall] type = tMsgLog 

pMsgRCIrEtherFilter[B/?e/Ty'pesjtype = tMsgRCIrEtherFilter 

pMsgRCIrPupFilter [EiherTypes] type = tMsgRCIrPupFilter 

pMsgRecvEtherPacket [EiherTypes] type = tMsgRecvEtherPacket 

pMsgRecvPupPacket [EiherTypes] type = tMsgRecvPupPacket 

pMsgRGetEthe r Add ress [EiherTypes] type = t Msg RGetEther Address 

pMsgRSelEtherFilter [EiherTypes] type = tMsgRSetEtherFilter 

pMsgRSetPupFMer [EiherTypes] type = tMsgRSetPupFilter 

pMsgSendEtherPacket[Ef/7errypes]type = TMsgSendEtherPacket 

pMsgSendPupPacket [EiherTypes] type = tMsgSendPupPacket 

pMsgSetEtherFilter [EtherTypes] type = TMsgSetEtherFilter 

pMsgSetPupFilter [Ef/?erfypes] type = tMsgSetPupFilter 

PMSuspend [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 

PMTerminate [ProcMgr] function(ServPort: port; ProcPort: port; Reason: long): GeneralReturn 

Port [Accent Type] type = long 

Port Array [AccentType] type = array [0..MAXPORTS - 1] of Port 
PortBitArray [AccentType] type = packed array[0..MAXPORTS - 1] of boolean 
PortDeath [AccentType] type = EXPLICITDEALLOC..NETWORKTROUBLE 
PortFull [/AccenrType] const = AccErr + 3 

Portlnterpose [Acclnt] function (ServPort: port; MyPort: Port; HisPort: port; var MyNewPort: Port): 
GeneralReturn 

PortOption [AccentType] type = DEFAULTPTS..LOCALPT 
Port raitBitHeight [SapphDefs] const = 1024 
PortraitBitWidth [SapphDefs] const = 768 

PortsWithMessages [AccCall] function(MsgType: long; var ports: PortBitArray): GeneralReturn 
PosC [Spice_String] function (Str: PString; c: char): integer 
PosString [Spice_String] function(Source, Mask: PString): Integer 
PosSystem [SysType] const = false 
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Power [RealFunctions] function(X, Y: Real): Real 
PowerBig [RealFunctions] exception(X, Y: Real) 
Powerl [RealFunctions] function(X: Real; Y: Integer): Real 
PowerNeg [RealFunctions] exception(X, Y: Real) 
PowerSmall [RealFunctions] exception(X, Y: Real) 
PowerZero [RealFunctions] exception(X, Y: Real) 
pPupData [EtherTypes] type = tPupData 
pPupPacket [EtherTypes] type = tPupPacket 
pQMap [QMapDefs] type = tQCodeMap 
pQMap_Buffer [QMapDefs] type = tQMap_Buffer 
RQMap.ByteBuffer [QMapDefs] type = tQMap_ByteBuffer 
pQMapDict [QMapDefs] type = tQMapDict 
PReadln [Stream] procedure(var F: Filetype) 
pRectArray [SapphDefs] type = tRectArray 
PREVIEW [AccentType] const = 0 
PrimaryDef [CFileDefs] const = 10 
Print_Name [SesameDefs] type = string[Print_Name_Size] 
Print_Name_Size [SesameDefs] const = 80 
PriorlD [AccentType] type = 0..NUMPRIORITIES- 1 
PROCESSDEATH [AccentType] const = 1 

ProcessDeathMsg [ProcMgrDefs] type = record Head: Msg; tWaitID: TypeType; WaitID: long; 
tReason: TypeType; Reason: long; tLoadTime: TypeType; LoadTime: long; tRunTime: 
TypeType; RunTime: long; tElapsedTime: TypeType; ElapsedTime: long; end 

ProcessDeathMsgID [ProcMgrDefs] const = 3800 

ProcessDisowned [ProcMgrDefs] const = ProcMgrBase + 9 

ProcID [AccentType] type = integer 

ProcMgr_Version [ProcMgr] function(ServPort: port): string 
ProcMgrBase [ProcMgrDefs] const = 3600 

ProcState [AccentType] type = (Supervisor, Privileged, BadSupervisor, User) 

ProgresslnTitle [SapphDefs] const = 1 

ProgStr [SapphDefs] type = String[ProgStrLength] 

ProgStrLength [SapphDefs] const = (lconWidth-2*BorderOverhead) div SysFontWidth 

Prompt_lndention_String [ExtraCmdParse] const = 

pRunHead [RunDefs] type = tRunHead 

pSEa r ray [RunDefs] type = tSEarray 

pSegBlock [Code] type = tSegBlock 

pSegBlock [SegDefs] type = tSegBlock 

pSegNode [Code] type = tSegNode 

pSourceMap [QMapDefs] type = tSourceMap 

PStatus [AccentType] type = record State: ProcState; Priority: PriorlD; MsgPending: boolean; 

EMsgPending: boolean; MsgEnable: boolean; EMsgEnable: boolean; LimitSet: boolean; 

SVStklnCore: boolean; QueuelD: QID; SleepID: ptrlnteger; RunTime: long; LimitTime: long end 
pStreamBuffer [Stream] type = tStreamBuffer 
pStreamF [Stream] type = tStreamF 
PSt ring [Spice_String] type = String[MaxPStringSize] 
ptrAIIPortArray [AccentType] type = tPortArray 
pt r A rguments [Accent Type] type = tArguments 
ptrBIRecord [Bootlnfo] type = tBIRecord 
ptrBoolean [Accent Type] type = tboolean 
ptrDirlOArgs [AccentType] type = tDirectioArgs 
ptrlnteger [Accent Type] type = tinteger 
ptrLPort Array [AccentType] type = tLPortArray 
ptrMsg [AccentType] type = ?Msg . 
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ptrPartDList[SesD/s/(Defs]type = rPartDList 
ptrPartLSst [AccentType]type = tPartList 
pt r Port [AccentType] type = tPort 
ptrPortArray [AccentType] type = tPortArray 
ptrPortBitArray [AccentType] type = fPortBitArray 
pTSCharArray [TSDefs] type = tTSCharArray 
PupCMUNet [£f/7er7ypes] const = #52 

PupData [EtherTypes] type = RECORD CASE INTEGER OF 0: (Chars: PACKED ARRAY[0..1043] OF 
CHAR); 1: (Bytes: PACKED ARRAY[0..1043] OF 0..255); 2: (Words: PACKED ARRAY[0..521] OF 
INTEGER); 3: (HLongs: PACKED ARRAY[0..260] OF PupHLong); 4: (Ports: PACKED 
ARRAY[0..260] OF PupPort); END 

PupEFTPAck [EtherTypes] const = #31 

PupEFTPBort [EtherTypes] const = #33 

PupEFTPData [EtherTypes] const = #30 

PupEFTPEnd [EtherTypes] const = #32 

PupEFTPSocket [EtherTypes] const = #20* # 200000 

PupError [EtherTypes] const = #4 

PupHeader [EtherTypes] type = PACKED RECORD Len: INTEGER; Typ: 0..255; TC: 0..255; Id: 

PupHLong; Dst: PupPort; Src: PupPort END 
PupHLong [EtherTypes] type = RECORD CASE INTEGER OF 1: (Lng: Long); 2: (Hgh: Integer; Low: 

Integer); END 

PupLLong [EtherTypes] type = RECORD CASE INTEGER OF 1: (Lng: Long); 2: (Low: Integer; Hgh: 
Integer) END 

PupNameSocket [EtherTypes] const = #4* #200000 

PupPacket [EtherTypes] type_= RECORD CASE INTEGER OF 0: (Header: PupHeader; Data: 

PupData); 1: (ChkSums: AhhAY[0..532] Oh integer) tND 
Pup PacketBy tes [EtherTypes] const = 2*WordSize(MsgPupPacket) 

PupPort [EtherTypes] type = PACKED RECORD CASE integer OF 0: (Host: 0..255; Net: 0..255; Soc: 

PupHLong); 1: (All: PACKED ARRAY[0..5] OF Char) END 
PushRegion [ViewPt] procedure(ServPort: Viewport; regionNum: integer; leftx: integer; topy: integer; 

width: integer; height: integer) 
PutAbsoluteDef [CFileDefs] procedure(var BytePtr: long; ByteAddress: long; Name: LString) 
PutAbsoluteLocalDef [CFileDefs] procedure(var BytePtr: long; ByteAddress: long; Name: LString) 
PutB [Stream] procedure(var F: Filetype) 
PutC [Stream] procedure(var F: FileType) 

PutChainHead [CFileDefs] procedure(var BytePtr: long; AreaDesg: BitS; ByteAreaOff: long) 
PutLibraryDef [CFileDefs] procedure(var BytePtr: long; LibraryFileName: LString; 

Library TimeStamp: lnternal_Time; LibraryLoc: long) 
PutOffsetDef [CFileDefs] procedure(var BytePtr: long; WdOffsetAmt: long) 

PutPrimaryDef [CFileDefs] procedure(var BytePtr: long; SimKind^. Bit8; AreaDesg: BitS; AreaOffset: 

long; SymSize: long; SymName: LString) 
PutViewportBit [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; value: boolean) 
PutViewportRectangle [ViewPt] procedure(ServPort: Viewport; Funct: RopFunct; x: integer; y: 

integer; width: integer; height: integer; Data: pVPIntegerArray; Data_Cnt: long; WordsAcross: 

integer; ux: integer; uy: integer) 
pVar_CharA r [SymDefs] type = tVar_CharAr 
pVa rjnt A r [SymDefs] type = tVarJntAr . 
pVarDictEntry [SymDefs] type = tVarDictEntry 
pVPCharArray [SapphDefs] type = tVPCharArray 
pVPIntegerArray [SapphDefs] type = t VP Integer Array 
pVPPortArray [SapphDefs] type = tVPPortArray 
pWinNameArray [SapphDefs] type = tWinNameArray 
p Wo rd_Sea rc h_Ta b le [CommandParse] type = POINTER 
pWord_String [CommandParse] type = tWord_String 
PWriteln [Stream] procedure(var F: Filetype) 
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QCodeMap [QMapDefs] type = Array[O..QMap_entries_per_block - 1] of QMaplnfoRecord 
QCodeVersion [Code] const = 4 
QCodeVersion [SegDefs] const = 4 
QID [AccentType]type = O..NUMQUEUES 

QMap_Buffer [QMapDe/s] type = array[O..PageWordSize- 1] of integer 

QMap_ByteBuffer [QMapDefs] type = array[O..PageByteSize- 1] of bit8 

QMaplentries_per_block [QMapDefs] const = 256 div WSQMaplnfoRecord 

QMap_ptr_type [QMapDefs] type = record case integer of 0: (P: POINTER); 1: (Buffer: 

pQMap_Buffer); 2: (ByteBuffer: pQMap_ByteBuffer); 2: (p: pDirBlk); 2: (pDict: pQMapDict); 3: 

(pMap: pQMap); 4: (pSource: pSourceMap); end 
QMapDict [QMapDefs] type = Record CompID: InternalJTime; SourceFileBlock: Integer; Routines: 

array[O..Max_QrnapRoutines] of integer; CompID: TimeStamp; SourceFileBlock: Integer; 

Routines: array[0..252] of integer; End 
QMaplnfoRecord [QMapDefs] type = packed record QCodeNumber: integer; SourceLineNumber: 

integer; BlockNumber: integer; Offset: 0..511; SourceFileNumber: 0..127; end 
QuitMultiProgress [WindowUtils] procedure(Level: integer) 
QuitProgress [WindowUtils] procedure 
Quote_Char [SesameDefs] const = '\' 
quoted_text_bracket_char [CommandParse] const = "" 
QVerRange [Code] type = 0..255 
QVerRange [SegDefs] type = 0..255 
RaiseP [Except] procedure(ES, ER, PStart, PEnd: Integer) 
Random Progress [WindowUtils] procedure 
Re ad Boolean [Reader] procedure(var F: FileType; var X: boolean) 
ReadCh [Reader] procedure(var F: FileType; var X: char; Field: integer) 
ReadCh Array [Reader] procedure(var F: FileType; var X: ChArray; Max, Len: integer) 
ReadD [PasLong] procedure(var F: FileType; var X: long; B: integer) 

ReadExtendedFile [PathName] function(var PathName: Path_Name; ExtensionList: Extension_List; 

ImplicitSearchList: Env_Var_Name; var Data: File_Data; var ByteCount: long): GeneralReturn 
ReadFiie [PathName] function(var PathName: Path_Name; var Data: File_Data; var ByteCount: long): 

GeneralReturn 

Readldentifier [Reader] procedure(var F: FileType; var X: integer; var IT: IdentTable; L: integer) 
Readlnteger [Reader] procedure(var F: FileType; var X: integer) 
READONLY [AccentType] const = 0 

ReadProcessMemory [Acclnt] function(ServPort: port; Address: VirtualAddress; NumBytes: Long; 

var Data: Pointer; var Data_Cnt: long): GeneralReturn 
ReadR [PasReal] procedure(var F: FileType; var value: real) 

ReadSegment [Acclnt] function(ServPort: port; Segment: SegID; Offset: Integer; NumPages: Integer; 

var Data: Pointer; var Data_Cnt: long): GeneralReturn 
ReadSt ring [Reader] procedure(var F: FileType; var X: String; Max, Len: integer) 
READWRITE [AccentType] const = 1 

ReadX [Reader] procedure(var F: FileType; var X: integer; B: integer) 
RealDivZero [Except] exception 

RealMlndefinite [RealF unctions] const = Recast( # 20000000001 , Real) 
RealMlnfinity [RealFunctions] const = Recast( # 37740000000, Real) 
RealMLa rgest [flea/Funcf/ons] const = Recast( # 37737777777, Real) 
RealMSmallest [RealFunctions] const = Recast( # 20040000000, Real) 
RealPlndefinite [RealFunctions] const = Recast( # 00000000001 , Real) 
RealPlnfinity [RealFunctions] const = Recast(# 17740000000, Real) 
RealPLargest [RealFunctions] const = Recast(# 17737777777, Real) 
RealPSmallest [RealFunctions] const = Recast( # 00040000000, Real) 
RealWriteError [Stream] exception(FileName: SName) 

Receive [AccCall] function(var x.xmsg: Msg; MaxWait: long; PortOpt: PortOption; Option: 
ReceiveOption): GeneralReturn 
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RECEIVE1T [AccentType] const = 1 

ReceiveOption [AccentType] type = PREVIEW.. RECEIVEWAIT 
RECEIVEWAIT [AccentType] const = 2 

RecMsg [IPCRecordIO] type = record Head: Msg; RecType: TypeType; RecName: integer; RecSize: 

integer; RecElts: long; RecPtr: pointer end 
RECMSGSIZE [IPCRecordIO] const = WordSize(RecMsg)*2 

RecRecord [IPCRecordIO] function(var localport: Port; var remoteport: Port; var id: long; var 

Msg Type: long; var recptr: Pointer; var recsize: integer): GeneralRetum- 
Rectangle [SapphDefs] type = record Ix, ty, w, h: integer; end 
Rect Array [SapphDefs] type = Array[1 ..MaxNumRectangles] of Rectangle 

RectColor [AccCall] function(Rectangle: Port; Action: integer; X: integer; Y: integer; Width: integer; 

Height: integer): GeneralReturn 
RectColorFunct [SapphDefs] type = (RectBlack, RectWnite, Rectlnvert) 

RectDrawLine [AccCall] function(DstRectangle: ' Port; Kind: integer; X1, Y1, X2, Y2: integer): 
GeneralReturn 

RectPutString [AccCall] function(DstRectangle: Port; FontRectangle: Port; Action: integer; var 
FirstX: integer; var FirstY: integer; StrPtr: Pointer; FirstChar: integer; var MaxChar: integer): 
GeneralReturn 

RectRasterOp [AccCall] function(DstRectangle: Port; Action: integer; DstX: integer; DstY: integer; 

Width: integer; Height: integer; SrcRectangle: Port; SrcX: integer; SrcY: integer): GeneralReturn 
RectScroil [AccCall] function(Rectangie: Port; X: integer; Y: integer; Width: integer; Height: integer; 

Xamt: integer; Yamt: integer): GeneralReturn 
RemoveExtension [PathName] procedure(var fileName: Path_Name; Extension: String) 
RemoveWindow [Sapph] procedure(ServPort: Window) 
RemoveWindowAttentionFlag [Windowiltils] procedure 
RemoveWindowErrorFlag [Windowiltils] procedure 
RemoveWindow RequestFlag [Windowiltils] procedure 

ReplaceChars [Spice_Str;ng] procedure(var Str: PString; NewS: PString; Index: integer) 
REPLY [AccentType] const = 2 
ReplyCode [EtherTypes] const =1 

ReserveCursor [ViewPt] procedure(ServPort: Viewport; reserve: boolean) 
ReserveScreen [ViewPt] procedure(ServPort: Viewport; reserve: boolean) 
ResetError [Stream] exception(FileName: SName) 
ResetHeap [Dynamic] procsdure(S: HeapNumber) 

ResolveSearchList [EnvMgr] function(ServPort: Port; Name: Env_Var_Name; FirstOnly: boolean; 

var Variable: Env_Variable; var Variable_Cnt: long; var FirstDefined: boolean): GeneralReturn 
Restore Window [Sapph] procedure(ServPort: Window) 
Resume [Acclnt] function(ServPort: port): GeneralReturn 
RevPosC [Spice_String] function(Str: PString; c: char): integer 
RevPosString [Spice_String] function(Source, Mask: PString): Integer 
Rew riteError [Stream] exception(FileName: SName) 
RFDELAYEDMAIN [RunDefs] const = 255 
RFFORMAT [RunDefs] const = 5 
RFileFormat [Code] Const = 2 
RM AX FILE [RunDefs] const = 255 
RM A X I M P 0 RT [RunDefs] const = 4095 
RM AXSEG [RunDefs] const = RFDELAYEDMAIN - 1 

RopFunct [SapphDefs] type = (RRpI, RNot, RAnd, RAndNot, ROr, ROrNot, RXor, RXNor) 
RoundTo [CF/7eDefe] procedure(var Value: long; Boundary:' integer) 

RRecMsg [IPCRecordIO] type = record Head: Msg; RecType: TypeType; RecName: integer; 

RecSize: integer; RecElts: long; RecPtr: pointer; filler: array[1 ..100] of integer end 
RRECMSGSIZE [IPCRecordIO] const = WordSize(R RecMsg)* 2 
RS1 10 [lODefs] const = 1 
RS1 200 [lODefs] const = 5 
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RS150 [lODefs] const = 2 
RS 1 9200 [lODefs] const = 9 
RS2400 [lODefs] const = 6 
RS300 [lODefs] const = 3 
RS4800 [lODefs] const = 7 
RS600 [lODefs] const = 4 
RS9600 [lODefs] const = 8 
RSExt [lODefs] const = 0 
RtolOvfl [Except] exception 

RunElement [Code] type = (RunHeader, SysSegment, UserSegment, Import, SegFileNames) 
Run FileType [Code] type = file of Integer 

RunHead [RunDefs] type = record RFileFormat: integer; InitSeg: Seglndex; MainSeg: Seglndex; 
LinkVersion: string[20]; LinkLocation: string[20]; LinkDate: lnternal_Time; LinkCommand: 
string; Version: long; SegEntryOffset: long; NumSegs: Seglndex; ImplndexOffset: long; 
Numlmports: Implndex; RleEntryOffset: long; NumFiles: Filelndex; end 

RUNHEADLOC [RunDefs] const = PageWordSize 

Runlnfo [Code] type = record RFileFormat: integer; Version: integer; System: boolean; InitialGP: 
integer; CurOffset: integer; StackSize: integer; Stacklncr: integer; HeapSize: integer; Heaplncr: 
integer; ProgramSN: integer; SegCount: integer end 

SaphEmrServer [SaphEmrServer] function(lnP, RepP: POINTER): boolean 

Sapph_Version [Sapph] function(ServPort: Window): String 

Sapphlndex [Pascallnit] const = 2 

Sapph Port [Pascallnit] var: Port 

SapphSystem [SysType] const = true 

Scan [Spice_String] funetionfvar S: Pstring; BT: breaktable; var BRK: Pstring): Pstring 
ScanEnvVariables [EnvMgr] function(ServPort: Port; SearchScope: Env_Var_Scope; var 

EnvScanList: Env_Scan_List; var EnvScanList_Cnt: long): GeneralReturn 
ScreenToVPCoords [ViewPt] procedure(ServPort: Viewport; scrX: integer; scrY: integer; var x: 

integer; var y: integer) 
Sea rchlist_Sepa rato r [EnvMgrDefs] const = ': ' 
Sea rchlistLoop [EnvMgrDefs] const = Env_Error_Base + 4 
SEarray [RunDefs] type = array[Seg Index] of SegEntry 
SECName [CFileDefs] function(x: Bit8): string 
SegBaseAddr [CFileDefs] function(Segnum: integer): long 

Seg Block [Code] type = packed record case integer of 0: (ProgramSegment: boolean; Longlds: 
boolean; DbglnfoExists: boolean; OptimizedCode: boolean; SegBlkFiller: 0..15; QVersion: 
QVerRange; ModuleName: SNArray; FileName: FNString; NumSeg: integer; ImportBlock: 
integer; GDBSize: integer; Version: String[CommentLen]; Comment: String[CommentLenj; 
Source: Language; PreLinkBlock: integer; RoutDescBlock: integer; DiagBlock: integer; 
QMapFileName: FNString; SymFileName: FNString; Compld: TimeStamp); 1: (OffsetRD: integer; 
RoutsThisSeg: integer); 2: (Block: array[0..255] of integer) end 

SegBlock [SegDefs] type = packed record case integer of 0: (ProgramSegment: boolean; Longlds: 
boolean; DbglnfoExists: boolean; OptimizedCode: boolean; ThirtyChlds: boolean; SegBlkFiller: 
0..7; QVersion: QVerRange; ModuleName: SNArray; FileName: FNString; NumSeg: integer; 
ImportBlock: integer; GDBSize: integer; Version: String[CommentLen]; Comment: 
String[CommentLenj; Source: Language; PreLinkBlock: integer; RoutDescBlock: integer; 
DiagBlock: integer; QMapFileName: FNString; SymFileName: FNString; Compld: TimeStamp); 1: 
(OffsetRD: integer; RoutsThisSeg: integer); 2: (Block: array[0..255] of integer) end 

SegEntry [RunDefs] type = record ModuleName: ModString; GDBSize: long; GDBLocation: long; 
SegFile: Filelndex; SegHdrOffset: long; SegHdrSize: long; CodeOffset: long; CodeSize: long; 
ImportsOffset: long; ImportsSize: long; ProcNamesOffset: ■ long; ProcNamesSize: long; 
SymsFile: Filelndex; SymsOffset: long; SymsSize: long; QMapFile: Filelndex; QMapOffset: long; 
QMapSize: long; Firstlmport: Implndex; Numlmports: integer; end 

SegFileType [Code] type = file of SegBlock 

SegFileType [SegDefs] type = file of SegBlock 
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SegHint [Code] type = record case Integer of 1: (Fid: Integer; Update: TimeStamp); 2: (Wordl: 

Integer; Word2: Integer; Word3: Integer) end 
SegID [AccentType] type = Song 
Seglndex [RunDefs] type = O..RFDELAYEDMAIN 
SegLength [Code] const = 8 
SegLength [SegDe/s] const = 8 

Segment AlreadyExists [AccentType] const = AccErr + 48 
SegmentOf [CFHeDefs] furrc$ion(Addr: long): integer 

SegNode [Code] type = record Segld: SNArray; RootNam: pFNString; Hint: SegHint; GDBSize: 
integer; XSTSize: integer; GDBOff: integer; ISN: integer; CodeSize: integer; SSN: integer; 
UsageCnt: integer; ImpList: plmpNode; Next: pSegNode end 
Send [AccCall] function(varxxmsg: Msg; MaxWait: long; Option: SendOption): GeneralReturn 
SendEther Address [EtherUser] function(Reply: Port; MaxWait: long; Option: SendOption): 
GeneralReturn 

SendEtherClear [EtherUser] function(Typ: INTEGER; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneralReturn . 
SendEthsrFilter [EtherUser] function(Typ: INTEGER; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneralReturn 
SendEtherPacket [EtherUser] function (Packet: POINTER; PacketWords: INTEGER; MaxWait: long; 

Option: SendOption): GeneralReturn 
SendOption [AccentType] type = WAIT.. REPLY 

SendPupClear [EtherUseir] function(Socket: Long; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneralReturn 
SendPupFilter [EtherUser] function(Socket: Long; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneralReturn 
SendPupPacket [EtherUser] function(PupPacket: POINTER; MaxWait: long; Option: SendOption): 

SendRecord [IPCRecordlO] function(localport: Port; remoteport: Port; id: long; MsgType: long; 

recptr: Pointer; recsize: integer): GeneralReturn 
ServerlOPort [lODefs] type = Port 
ServerNamePort [lODefs] type = Port 
Sesame_Error_Base [SesameDefs] const = 1200 
Sesamelndex [Pascallnit] const = 1 

SesAuthServerPort [SesD/sA] function(ServPort: Port; AuthServerPort: Port): GeneralReturn 

SesConnect [SesDisk] function(ServPort: Port; RegPort: Port): GeneralReturn 

SesDirectio [SesDisk] function (ServPort: Port; var CmdBlk: DirectlOArgs; var DataHdr: Header; var 

Data: DiskBuffer): GeneralReturn 
SesDisk_Error_Base [SesDiskDefs] const = 29400 

SesDiskDisMount [SesD/s^f] function (ServPort: Port; PartName: string): GeneralReturn 
SesDiskMount [SesDisk] function (ServPort: Port; PartName: string): GeneralReturn . 
SesEnterForeignSesamoid [SesD/s/c] function(ServPort: Port; APathName: APath_Name; 

ForeignPort: Port; ForejgnPrefix: APath_Name): GeneralReturn 
SesEnterSegID [SesD/sA] function(ServPort: Port; var APathName: APath_Name; SegmentlD: 

SegID): GeneralReturn 

SesGetAccessRights [SesD/s/c] function(ServPort: Port; var APathName: APath_Name; var Owner: 

User_ID; var Rights: Access_Rights): GeneralReturn 
SesGetDefaultAccess [SesDisk] function(ServPort: Port; var Default Access: Access_Rights): 

GeneralReturn 

SesGetDiskPartitions [SesDisk] function (ServPort: Port; var PartL: ptrPartDList; var NumElts: 
integer): GeneralReturn 

SesGetFileHeader [Sesame] function(ServPort: port; APathName: APath_Name; var FileHeader: 

File_Header): GeneralReturn 
SesGetNetPort [SesDisk] function(ServPort: Port; var SesNetPort: Port): GeneralReturn 
SesGetSegID [SesDisk] function (ServPort: Port; var APathName: APath_Name; var SegmentlD: 

SegID): GeneralReturn 
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SesGetSegName [SesDisk] function(ServPort: Port; SegmentID: SegID; var APathName: 

APath_Name): GeneralReturn 
SesLookupForeignSesamoid [SesDisk] function(ServPort: Port; APathName: APath_Name; var 

ForeignPort: Port; var ForeignPrefix: APath_Name): GeneralReturn 
SesMountDevice [SesDisk] function(ServPort: Port; interface: Disklnterface; logjjnit: Interfaceinfo; 

var unitnum: integer; var PartL: ptrPartDList; var NumElts: integer): GeneralReturn 
SesMsgServerPort [SesDisk] function (ServPort: Port; MsgServerPort: Port): GeneralReturn 
SesPort [Pascallnit] var: port 

SesReadBoth [Sesame] function(ServPort: port; var APathName: APath_Name; var Data: File_Data; 
var Data_Cnt: long; var FileHeader: File_Header; var NameStatus: Name.Status): 
GeneralReturn 

SesReadFile [Sesame] function(ServPort port; var APathName: APath_Name; var Data: File.Data; 

var Data_Cnt: long; var DataFormat: Data.Format; var CreationDate: lnternal_Time; var 

NameStatus: Name_Status): GeneralReturn . 
SesScanNames [Sesame] function(ServPort: port; WildAPathName: Wild_APath_Name; NameFlags: 

Name Flags; EntryType: Entry_Type; var DirectoryName: APath_Name; var EntryList: 

Entry list; var EntryList.Cnt: long): GeneralReturn 
SesSetAccessRights [SesDisk] function (ServPort: Port; var APathName: APath_Name; NewOwner: 

User_ID; NewRights: Access.Rights): GeneralReturn 
SesSetDefaultAccess [SesD/s/c] function(ServPort: Port; NewDefaultAccess: Access_Rights): 

GeneralReturn 

SesSetPOSWriteDate [SesDisk] function (ServPort: Port; APathName: APath_Name; WriteDate: 

lnternal_Time): GeneralReturn 
SetAsmLong [CF/7eDefs] procedure(var ByteAddr: long; NewValue: long) 
SetAsrnString [CFileDefs] procedure(var ByteAddr: long; NewValue: LString) 
SetBackLog [Acclnt] function(ServPort: port; LocalPort: port; BackLog: Integer): GeneralReturn 
SetBreak [Spice_String] procedure(BT: BreakTable; Break, Omit: PString; Options: BreakKind) 
SetCodeByte [CFileDefs] procedure(var ByteAddr: long; NewValue: BitS) 
SetCodelong [CF/7eDefe] procedure(var ByteAddr: long; NewValue: long) 
SetCodeWord [CFileDefs] procedure(var ByteAddr: long; NewValue: integer) 
SeiCursorPos [ViewPi] procedure(ServPort: Viewport; x: integer; y: integer) 
SetDataLong [CFileDefs] procedure(var ByteAddr: long; NewValue: long) 
SetDateTime [Time] procedure(ServPort: port; ITime: lnternal_Time) 
SetDebugPort [Acclnt] function(ServPort: port; DebugPort: port): GeneralReturn 
SetEnvVariable [EnvMgr] function(ServPort: Port; Name: Env_Var_Name; VarType: Env_Var_Type; 

VarScope: Env_Var_Scope; Variable: Env_Variable; Variable.Cnt: long): GeneralReturn 
SetKernelWindow~[Acc/nf] function(ServPort: port; LeftX: Integer; TopY: Integer; Width: Integer; 

Height: Integer; Inverted: Boolean): GeneralReturn 
SetLimit [Acclnt] function(ServPort: port; ReplyPort: port; Limit: Long): GeneralReturn 
SetListener [ViewPt] procedure(ServPort: Viewport) 

SetPagingSegment [Acclnt] function(ServPort: port; Segment: SegID): GeneralReturn 

Set PM Port [Sapph] procedure(ServPort: Window; ProcCtlPort: Port) 

SetPortsWaiting [AccCall] function(var ports: PortBit Array): GeneralReturn 

SetPriority [Acclnt] function(ServPort: port; Priority: PriorlD): GeneralReturn 

SetProtection [Acclnt] function(ServPort: port; Address: VirtualAddress; NumBytes: Long; 

Protection: Integer): GeneralReturn 
SetRegionCursor [ViewPt] procedure(ServPort: Viewport; regionNum: integer; cursorlmage: 

CursorSet; curslndex: integer; cursFunc: CursorFunction; track: boolean) 
SetRegionParms [ViewPt] procedure(ServPort: Viewport; regionNum: integer; absolute: boolean; 

speed: integer; minx: integer; maxx: integer; miny: integer; maxy: integer; modx: integer; posx: 

integer; mody: integer; posy: integer) 
SetSystemZone [Time] procedure(ServPort: port; TimeZone: integer; DSTWhenTimely: boolean) 
SetTempSegPartition [Acclnt] function(ServPort: port; PartName: DevPartString): GeneralReturn 
Set Window Attention [Sapph] procedure(ServPort: Window; attn: boolean) 
SetWindowError [Sapph] procedure(ServPort: Window; error: boolean) 
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SetWindowName [Sapph] procedure(ServPort: Window; var progName: ProgStr) 
SetWindowProgress [Sapph] procedure(ServPort: Window; nestLevel: integer; value: Long; max: 
Long) 

SetWindowRequest [Sapph] procedure(ServPort: Window; requesting: boolean) 

SetWindowTitle [Sapph] procedure(ServPort: Window; title: TitStr) 

shell_input_redirect [CommandParse] const = '<' 

shell_output_redirect [CommandParse] const = '>' 

shell_paraSlel_command [CommandParse] const = '&' 

shell_piped_command [CommandParse] const = T 

shell_special_args_start [CommandParse] const = '[' 

shell_special_args_stop [CommandParse] const = ']' 

ShowBreak [Spice_String] function(BT: BreakTable): PString 

Show Path AndTitle [WindowUtils] procedure(s: TitStr) 

Show Run [ALoad] procedure(p: pointer; MapFileName: Path_Name) 

ShowWindowAttentionFlag [WindowUtils] procedure 

ShowWindowErrorFlag [WindowUtils] procedure 

ShowWindowRequestFlag [WindowUtils] procedure 

ShrinkWindow [Sapph] procedure(ServPort: Window) 

SigDebug [ProcMgrDefs] const = MinSigrial + 36 

SigLeveil Abort [ProcMgrDefs] const = MinSignal + 37 

SigLevel2A bo rt [ProcMgrDefs] const = MinSignal + 38 

SigLevelSAbort [ProcMgrDefs] const = MinSignal + 39 

SignalAction [ProcMgrDefs] type = (SigDefault, Siglgnore, SigSend) 

SignalBase [ProcMgrDefs] const = 3800 

SignaTMsg [ProcMgrDefs] type = record Head: Msg; tCtlWindow: TypeType; CtlWindow: Window; 

tSignal: TypeType; Signal: SignalName; end 
SignalMsgID [ProcMgrDefs] const = 3801 
SignalName [ProcMgrDefs] type = integer 
SigResume [ProcMgrDefs] const = MinSignal + 34 
SigStatus [ProcMgrDefs] const = MinSignal + 35 
SigSuspend [ProcMgrDefs] const = MinSignal + 33 
SimpleName [PathName] function (Path Name: Path_Name): Entry_Name 
Sin [ReaiF unctions] function(X: Real): Real 
single_char_quote [CommandParse] const = '\' 
SinH [RealFunctions] function(x: real): real 
SinHLarge [RealFunctions] exception(X: Real) 
SinLarge [RealFunctions] exception(X: Real) 

SlOSenseStatus [lODefs] type = packed record RxCharAvailable: boolean; IntPending: boolean; 
TxBufferEmpty: boolean; DCD: boolean; SyncHunt: boolean; CTS: boolean; TransmitUnderRun: 
boolean; BreakAbort: boolean; AllSent: boolean; Residue: Bit3; ParityError: boolean; 
RxOverRun: boolean; CrcFramingError: boolean; EndOfFrame: boolean; end 

SIOWriteRegister [lODefs] type = packed record case RegNum: Bits of 0: (); 1: (RegVal: Bit8) end 

Small Real [Stream] exception(FileName: SName) 

SName [Stream] type = string[255] 

SNA rray [Code] type = packed array[1 ..SegLength] of Char ' 
SNA r ray [SegDefs] type = packed array[1 ..SegLength] of Char 

SoftEnable [AccCall] function(NormOrEmerg: boolean; EnOrDis: boolean): GeneralReturn 
Softlnterrupt [Acclnt] function(ServPort: port; NormOrEmerg: Boolean; var EnOrDisable: Boolean): 
GeneralReturn 

Source_entries_per_block [QMapDefs] const = 256 div WSSourceMapRecord 
SourceMap [QMapDefs] type = Array[O..Source_entries_per_block - 1] of SourceMapRecord 
SourceMapRecord [QMapDefs] type = record FileName: APath_Name; CompID: lnternal_Time; 
Filler: array[0..1 24] of integer; FileName: PathName; fileBlocks, fileBits: Integer; end 
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Spawn [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port; ProgName: APath_Name; 
ProcName: STRING; HisCommand: CommandBlock; Debuglt: BOOLEAN; ProtectChild: 
BOOLEAN; SapphConn: Connectionlnheritance; pWindow- Port; pTypeScript: Port; EMConn: 
Connectionlnheritance; pEMPort: Port; PassedPorts: ptrPortArray; NPorts: LONG; 
LoaderDebug: BOOLEAN): GeneraiReturn 

SpiceSegKind [AccentType] type = (Temporary, Permanent, Bad, SegPhysical, Imaginary, Shadow) 

Split [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port): GeneraiReturn 

Sqrt [RealFunctions] function(X: Real): Real 

SqrtNeg [RealFunctions] exception(X: Real) 

Squeeze [Spice_String] function(Str: PString): PString 

StackLeader [Code] const = 2 

Stat A rray [ProcMgrDefs] type = array[0..0] of StatRecord 
StatList [ProcMgrDefs] type = tStatArray 

StatRecord [ProcMgrDefs] type = record RunTime: long; LoadTime: long; ElapsedTime: long; 

KernelPort: long; Priority: integer; QueuelD: integer; ProcName: string; IconName: ProgStr; 

State: ProcState; end 
Status [Acclnt] function(ServPort: port; var NStats: PStatus): GeneraiReturn 
str [Spice_String] function(Ch: char): PString 

StrBadParm [SpiceJString] exception(FuncName, StringArgument: PString; ParmValue: integer) 
StreamBuffer [Stream] type = record case integer of 0: (W: array[0..255] of integer); 1: (B1: packed 
array[0..0] of 0..1); 2: (B2: packed array[0..0] of 0..3); 3: (B3: packed array[0..0] of 0..7); 4: (B4: 
packed array[0..0] of 0..15); 5: (B5: packed array[0..0] of 0..31); 6: (B6: packed array[0..0] of 
0..63); 7: (B7: packed array[0..0] of 0..127); 8: (B8: packed array[0..0] of 0..255); 9: (C: packed 
array[0..255] of char); end 
StreamClose [Stream] procedure(var F: FileType) 

St ream F [Stream] type = record FName: SName; Buffer: pStreamBuffer; BufSize: long; Wordlndex: 

long; LastElt: integer; Eltlndex: integer; end 
StreamFlushOutput [Stream] procedure(var F: Text) 

Streamlnit [Stream] procedure(var F: FileType; WordSize, BitSize: integer; CharFile: boolean) 
StreamKeyBoardReset [Stream] procedure(var F: Text) 
StreamName [Stream] function(var F: FileType): SName 

StreamOpen [Stream] procedure(var F: FileType; var Name: SName; WordSize, BitSize: integer; 

CharFile: boolean; OpenWrite: boolean) 
St ream Progress [WindowUtHs] procedure(var F: File) 
StreamVersion [Stream] const = '3.9' 
Strlndx [Except] exception 
String_255 [7/meDefs] type = string[255] 
Strip [Spice_String] function(Str: PString): PString 

StripCurrent [PathName] function(var WildPathName: Wild_Path_Name): GeneraiReturn 
StrLong [Except] exception 

STSChangeEnv [TS] procedure(ServPort: Typescript; env: Port) 
STSFIushlnput [TS] procedure(ServPort: Typescript) 
STSFIushOutput [TS] procedure(ServPort: Typescript) 
STSFuilLine [TS] function(ServPortr Typescript): Boolean 

STSFullOpen [TS] function(ServPort: Port; vp: ViewPort; env: Port; fontName: TString255; doWrap: 

Boolean; dispPages: Integer): Typescript 
STSFulIOpenWindow [TS] function(ServPort: Port; w: Window; env: Port; fontName: TString255; 

doWrap: Boolean; dispPages: Integer): Typescript 
STSGetChar [TS] function(ServPort: Typescript): Char 
STSGetString [TS] function(ServPort: Typescript): TString255 
STSGrabWindow [TS] function(ServPort: Typescript; kPort: Port): Window 
STSOpen [TS] function(ServPort: Port; vp: ViewPort; env: Port): Typescript 
STSOpenWindow [TS] function(ServPort: Port; w: Window; env: Port): Typescript 
STSPutChar [TS] procedure(ServPort: Typescript; ch: Char) 
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STSPutCharArray [TS] procedure(ServPort: Typescript; chars: pTSCharArray; chars Cnt: lonq- 
firstCh: Integer; lastCh: Integer) ■ a ' 

STSPutString [TS] procedure(ServPort: Typescript; s: TString255) 

SubDeleteName [Sesame] function(ServPort: port; APathName: APath_Name): GeneralReturn 
SubEnterName [Sesame] function(ServPort: port; var APathName: APath Name; EntryTyoe- 

Entry_Type; EntryData: Entry_Data): GeneralReturn " y yP 

SubLookUpName [Sesame] function(ServPort: port; var APathName: APath_Name; var EntryType- 

Entry_Type; var EntryData: Entry_Data; var NameStatus: Name.Status): GeneralReturn 
SubReadFile [Sesame] function(ServPort: port; APathName: APath Name; var Data: File Data- var 

Data_Cnt: long): GeneralReturn " ~ ' 

SubReName >, [Sesame] function (ServPort: port; OldAPathName: APath Name; var NewAPathName- 

APath_Name): GeneralReturn ~ 
SubstrFor [Spice_String] function(Source: PString; Index, Size: Integer): PString 
SubstrTo [Spice_String] function(Source: PString;- Index, Endlndex: Integer): PString 
SubTestName [Sesame] function(ServPort: port; var APathName: APath Name; var EntryTvDe- 

Entry_Type; var NameStatus: Name.Status): GeneralReturn ~ 
SubWriteFile [Sesame] function(ServPort: port; var APathName: APath.Name; Data: File Data- 

Data.Cnt: long; DataFormat: Data_Format; var CreationDate: lnternal_Time): GeneralReturn ' 
Success [AccentType] const = AccErr+1 
Suspend [Acclnt] function(ServPort: port): GeneralReturn 
switchjeadin_char [CommandParse] const 

SyncIO [/O] function{ServPort: ServerlOPort; Command: lOCommand; CmdBlk: Pointer 
CmdBIk_Cnt: long; var DataBuf: Pointer; var DataBuf.Cnt: long; DataTransferCnf Lonq-' 
TimeOut: Long; var Status: lOStatusBlk): GeneralReturn <uiwerv.ni. Long, 

SysFontHeight [SapphDefs] const = 13 

SysFontName [SapphDefs] const = 'Fix l3.Kst' 

SysFontWidth [SapphDefs] const -9 

T_lntToString [Time] functionfServRort: port; ITime: lnternal_Time; TimeFormat: integer)- String 
TJntToUser [Time] function (ServPort: port; ITime: lnternalj"ime): User_Time 
TJntToZone [Time] function(ServPort: port; ITime: lntemal_Time; TZone: Zone Info)- User Time 
T.Never [Time] function(ServPort: port): lnternal_Time 

T.StringToInt [Time] function(ServPort: port; STime: String_255; var Index: integer; var WhatlFound- 
integer): InternaMTime 

T - St tf° U se ' [^] function(ServPort: port; STime: String_255; var Index: integer; var 
WhatlFound: integer): User_Time 

T.UserToInt [Time] function(ServPort: port; UTime: User Time): lntemal_Time 
T.UserToString [Time] function(ServPort: port; UTime: Userjime; TimeFormat: integer): Strinq 
Tan [Real Functions] function(X: Real): Real 
TanH [ReaiF unctions] function(x: real): real 
TanLarge [Real Functions] exception(X: Real) 

Terminate [Acclnt] function(ServPort: port; Reason: Long): GeneralReturn 

TextState [CF/7eDe/s] const = 0 

TF_1 2_Hou r [TimeDefs] const =# 004000 

TF_ANSI [TimeDefs] const = #000300 

TF_ANSI_Ordinal [TimeDefs] const = #000340 

TF_BlankPad [TimeDefs] const = #020000 

TF_Dashes [TimeDefs] const = #000000 

TF_DateFormat [TimeDefs] const = #000340 

TF_FullMonth [7/meDefs] const = #000010 

TF_Fu II Weekday [TimeDefs] const = #000002 

TF_FullYear [7/meDefe] const = #000020 

TF_Miiliseconds [TimeDefs] const = #002000 

TF_Never [TimeDefs] const = #100000 

TF_NoColumns [TimeDefs] const = #040000 
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TF_NoDate [TimeDefs] const = #000004 
TF_NoSeconds [TimeDefs] const = #001000 
TF_NoTime [TimeDefs] const = #000400 
TFJteversed [TimeDefs] const = #000100 
TF_Slashes [TimeDefs] const = #000140 
TF^Spaces [TimeDefs] const = #000040 
TFJTimeZone [TimeDefs] const = #010000 
jfTweekday [TimeDefs] const = #000001 
This Directory [SesameDefs] const - './' 

Time_Fields [TimeDefs] type = packed record Hour: 0..24; Minute: 0..59; Second: 0..59; Millisecond: 

"0..999;end 
Timelndex [Pascallnit] const = 0 
TimeNotlnitialized [Time] exception 
TimeOut [AccentType] const = AccErr + 2 
TimeOutError [Stream] exception(FileName: SName) 
TIMEOUTUSECS [Sapp/7f/7e0efs] const = 16666 
TimePort [Pascallnit] var: port 

TimeStamp [OldTimeStamp] type = packed record Hour: 0..23; Day: 1..31; Second: 0..59; Minute: 

0..59; Month: 1 ..12; Year: 0..63; end • 
TitleOverhead [SapphDefs] const = SysFontHeight + 6 
TitStr[Sapp/?Defs]type = String[TitStrLength] 

TitStrLength [SapphDefs] const = LandScapeBitWidth div SysFontWidth 

TooManyHeaps [Dynamic] exception 

TooMany Replies [Accent Type] const = AccErr + 5 

Touch [Acclnt] function(ServPort: port; Address: VirtualAddress): GeneralReturn 

TPJDate [TimeDefs] const = #000002 

TP Jlever [TimeDefs] const = #000020 

TP_RESERVED [TimeDefs] const = #177740 

TP_Time [TimeDefs] const = #000004 

TP_Weekday [TimeDefs] const = #000001 

TP_Zone [TimeDefs] const = #000010 

TraceHeap [Dynamic] procedure(S: HeapNumber; Trace: boolean) 

TrapCodes [AccentType] type = (Traplnit, TrapRead Fault, TrapWriteFault, TrapSend, TrapReceive, 
TrapSetPortsWaiting, TrapPortsWithMessages, TrapDebugWrite, TrapException, TrapNothing, 
TrapRectDrawLine, TrapRectRasterOp, TrapCharRead, TrapFull, TrapFlush, TrapMoveWords, 
TrapRectPutString, TrapError, TrapClockEnable, TrapGPRead, TrapGPWrite, TrapSoftEnable, 
TrapGetlOSIeepID, TrapRectColor, TrapRectScroli, TrapLockPorts, TrapMessagesWaitmg) 

Trim [Spice_String] function(Str: PString): PString 

TruncateSegment [Acclnt] function(ServPort: port; Segment: SegID; NewSize: . Integer): 

GeneralReturn 
TSCharArray [TSDefs] type = packed array[0..1] of Char 
TString255 [TSDefs] type = String[255] 
TYPEBIT [AccentType] const = 0 
TYPEBOOLEAN [AccentType] const = 0 
TYPEBYTE [4ccenf Type] const = 9 
TYPECHAR [AccentType] const = 8 
TYPEINT1 6 [AccentType] const =1 
TYPEINT32 [AccentType] const = 2 
TYPEINT8 [AccentType] const = 9 
TY PEP AGE [AccentType] const = 14 
TYPEPSTAT [AccentType] const = 11 
TYPEPT [AccentType] const = 6 
TYPEPTALL [AccentType] const = 5 
TYPEPTOWNERSHIP [AccentType] const = 3 
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TYPEPTRECEIVE [AccentType] const = 4 
TYPEREAL [AccentType] const = 10 
Typescript [ISDe/s] type = Port 
Typescriptlndex [Pascailnit] const = 3 
TypescriptPort [Pascailnit] var: Port 
TYPESEGID [AccentType] const = 13 
TYPESTRING [AccentType] const = 12 

TypeType [/Accenffype] type = packed record case integer of 1: (TypeName: Bit8; TypeSizelnBits: 
Bit8; NumObjects: Bit12; InLine: boolean; LongForm: boolean; Deallocate: boolean); 2: 
(Longlnteger: long) end 

TYPEUNSTRUCTURED [AccentType] const = 0 

ULInitial [Spice_Strihg] function(Str1 , Str2: PString): boolean 

ULPosString [Spice_String] function(Source, Mask: PString): Integer 

UncaughtException [AccentType] const = AccErr + 44 

UNCHANGED [SapphDefs] const = - 32001 

UndefinedGlobal [CFileDefs] const = UndefinedSymbol 

UndefinedSymbo! [CFileDefs] const = 7 

UndfDevice [Stream] exception 

Undflnt [Except] exception 

UndfQcd [Except] exception 

UndReal [Except] exception 

UniqueWordlndex [CommandParse] function(table: pWord_Search_Table; ptrWordString: 

pWord_String; var WordText: Cmnd_String): integer 
UnitlOError [Stream] exception (FileName: SName) 
Unknown Action [ProcMgrDefs] const = ProcMgrBase + 3 
UnknownPort [ProcMgrDefs] const = ProcMgrBase + 7 
Unknown Process [ProcMgrDefs] const = ProcMgrBase + 1 
UnknownSignal [ProcMgrDefs] const = ProcMgrBase + 2 
UnknownWindow [ProcMgrDefs] const = ProcMgrBase + 4 
UnrecognizedMsgType [AccentType] const = AccErr+15 
UNSPECEXCEPTION [AccentType] const = 5 
Up_one_Di recto ry [SesameDefs] const = '../' 
UpChar [Spice_String] function(C: Char): Char 
UpEQU [SpiceJString] f u notion (Str1: PString; Str2: PString): boolean 
UserJD [AuthDefs] type - No_User..Max_Users 

User_Time [TimeDefs] type = packed record Date: Date_Fields; Time: Time_Fields; Zone: 

Zonejnfo; end 
UserCommand [Pascailnit] var: CommandBlock 
UserError [ViewPt] exception(s: String) 
UserEventPort [lODefs] type = Port 

UserNameNotFound [AuthDefs] const = Auth_Error_Base + 1 

UserRecord [AuthDefs] type = record Name: Auth_Var; UserlD: UserJD; EncryptPass: PassType; 

Profile: APath_Name; NameOf Shell: APath_Name; End 
Use rTypesc ript [Pascailnit] var: Port 
UserWindow [Pascailnit] var: Port 
UserWindowShared [Pascailnit] var: Boolean 

Valid_Name Chars [SesameDefs] const 

'$ - . + 0123456789ABCDEFGHIJKLMNOPQRSTU\A/VXYZ_abcdefghijklmnopqrstuvwxyz' 

ValidateMemory [Accint] function(ServPort: port; var Address: VirtualAddress; NumBytes: Long; 

CreateMask: Long): GeneralReturn 

val ue_marker_ch a r [CommandParse] const = ' = ' 

Var_CharA r [SymDefs] type = Packed Array[0..51 1] of Char 

VarJntAr [SymDefs] type = Array[0..255] of Integer 
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var_ptr [SymDefs] type = Record Case Integer Of 0: (P: POINTER); 1: (p: pDirBlk); 2: (diet: 

pVarDictEntry); 3: (chars: pVar_CharAr); 4: (int: pVarJntAr); End 
VarDescriptor [SymDefs] type = Packed Record mainType: BaseType; subType: BaseType; etc: 

0..255; End 

VarDictEntry [SymDefs] type = Record CompID: InternalJTime; Globals: Integer; Routines: 

Array[O..Max_SymRoutines] of Integer; End 
VarName Array [SymDefs] type = Record TotNumChars: integer; VarNames: Packed Array[0..0] of 

Char; End 

Ver_Separator [SesameDefs] const = ' # ' 

ViewChar [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

integer; var dy: integer; ch: char) 
ViewChArray [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

integer; var dy: integer; chars: pVPCharArray; chars_Cnt: long; firstCh: integer; var lastch: 

integer) 

ViewColorRect [ViewPt] procedure(ServPort: Viewport; funct: RectColorFunct; x: integer; y: integer; 

width: integer; height: integer) 
ViewLine [ViewPt] procedure(ServPort: Viewport; funct: LineFunct; x1: integer; y1: integer; x2: 

integer; y2: integer) 
Viewport [SapphDefs] type = Port 

ViewportState [ViewPt] procedure(ServPort: Viewport; var curlx: integer; var curty: integer; var 

curwidth: integer; var curheight: integer; var curRank: integer; var memory: boolean; var 

courteous: boolean; var transparent: boolean) 
ViewPutChar [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; ch: char) 
Vie wPutCh Array [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; chars: pVPCharArray; chars_Cnt: long; firstCh: integer; lastch: integer) 
ViewPutString [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; str: VPStr255; firstCh: integer; lastch: integer) 
ViewROP [ViewPt] procedure(ServPort: Viewport; funct: RopFunct; dx: integer; dy: integer; width: 

integer; height: integer; srcVP; Viewport; sx: integer; sy: integer) 
Vie wSc roll [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; width: integer; height: 

integer; Xamt: integer; Yamt: integer)' 
Vie wSt ring [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

integer; var dy: integer; str: VPStr255; firstCh: integer; var lastch: integer) 
VirtualAddress [AccentType] type = long 

VPChar [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; ch: 
Char) 

VPCharArray [SapphDefs] type = Packed Array[0.'.1] of Char 

VPChArray [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; 

chars: pVPCharArray; arSize: Long; firstCh: Integer; var lastch: Integer) 
VPColorRect [ViewKern] procedure(vp: Viewport; funct: RectColorFunct; x, y, width, height: Integer) 
VPExclusionFailu re [AccentType] const = AccErr + 40 
VPlntegerArray [SapphDefs] type = Array [0..0] of Integer 

VPLine [ViewKern] procedure(destvp: Viewport; funct: LineFunct; x1 , y1 , x2, y2: integer) 
VPNIY [ViewPt] exception 

VPPort Array [SapphDefs] type = Record num: Integer; ar: Array[0..0] of Port; end 
VPPutChar [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx: Integer; dy: 
Integer; ch: Char) 

VPPutCh Array [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx, dy: Integer; 

chars: pVPCharArray; arSize: Long; firstCh, lastch: Integer) 
VPPutString [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx, dy: Integer; var 

str: VPStr255; firstCh, lastch: Integer) 
VPREGION [SapphDefs] const = 1 

VPROP [ViewKern] procedure(destvp: Viewport; funct: RopFunct; dx, dy, width, height: Integer; 

srcVP: Viewport; sx, sy: Integer) 
VPScroli [ViewKern] procedure(destvp: Viewport; x, y, width, height, Xamt, Yamt: Integer) 
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VPStr255 [SapphDefs] type = string[255] 

VPString [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; var 

str: VPStr255; firstCh: Integer; var lastch: Integer) 
VPtoScreenCoords [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; var scrX: integer; 

var scrY: integer) 
WAIT [AccentType] const = 0 
WaitEther Address [Etherilser] function: INTEGER 

WaitEtherClear [EtherUser] function(Typ: INTEGER; Listener: Port): BOOLEAN 

WaitEtherFilter [EtherUser] | function(Typ: INTEGER; Listener: Port): BOOLEAN 

WaitPupClear [EtherUser] function(VAR Socket: Long; Listener: Port): BOOLEAN 

WaitPupFilter [EtherUser] function(VAR Socket: Long; Listener: Port): BOOLEAN - 

Wi!d_APath_Name [SesameDefs] type = string[Path_Name_Size] 

Wild_Path_Name [PathName] type = string[Path_Name_Size] 

WILDREGION [SapphDefs] const = 31 

WillReply [AccentType] const = AccErr + 4 

Window [SapphDefs] type = Port 

WindowlnUse [ProcMgrDefs] const = ProcMgrBase + 5 

Window Viewport [Sapph] procedure(ServPort: Window; var vp: Viewport; var vpWidth: integer; var 
vpHeight: integer) 

WinForName [Sapph] function(ServPort: Window; name: ProgStr): Window 

Win For View Port [Sapph] function(ServPort: Window; vp: Viewport; var isouter: boolean): Window 

WinNameArray [SapphDefs] type = Array[0..0] of ProgStr 

Word.String [CommandParse] type = String[1] 

Word_Type [CommandParse] type = (in_arg, out_arg, switch_arg, switch_value, command Jile) 
WordifvPooS [CommandParse] function(ChPdol: pCharacter_Pool; PoolLength: Char_Pool_lndex; 

var WordStruct: Command Block): GeneralReturn 
V/riteBoolean [Writer] procedure(var F: FileType; X: Boolean; Field: integer) 
WriteCh [Writer] procedure(Var F: FileType; X: char; Field: integer) 
WriteCh Array [Writer] procedure(var F: FileType; var X: ChArray; Max, Field: integer) 
WriteChars [Stream] procedure(VAR F: FileType; VAR S: String) 
WriteD [PasLong] procedure(var F: FileType; X: long; Field, B: integer) 
WriteFault [AccentType] const = AccErr + 26 

WriteFile [PathName] function(var PathName: Path_Name; Data: File_Data; ByteCount: long): 
GeneralReturn 

Writeldentifier [Writer] procedure(var F: FileType; X: integer; var IT: IdentTable; L, Field: integer) 
Writeinteger [Writer] procedure(var F: FileType; X: integer; Field: integer) 
WriteNChars [Stream] procedure(VAR F: FileType; c: char; N: Integer) 

WriteProcessMemory [Acclnt] function(ServPort: port; Address: Virtual Address; NumBytes: Long; 

Data: Pointer; Data.Cnt: long): GeneralReturn 
WriteR [PasReal] procedure(var F: FileType; e: real; TotalWidth: integer; FracDigits: integer; format: 

integer) 

WriteSegment [Acclnt] function(ServPort: port; Segment: SegID; Offset: Integer; Data: Pointer; 

Data_Cnt: long): GeneralReturn 
WriteString [Writer] procedure(var F: FileType; var X: String; Field: integer) 
WriteX [Writer] procedure(var F: FileType; X, Field, B: integer) 
WRONGARGS [AccentType] const = 2 
WrongEnvVarType [EnvMgrDefs] const = Env_Error_Base + 2 
WS.NotFound [CommandParse] const = -1 
WS_NotUnique [CommandParse] const = -2 

WSQMaplnfoRecord [QMapDefs] const = WordSize(QMaplnfoRecord) 
WSSourceMapRecord [QMapDefs] const = WordSize(SourceMapRecord) . 
Zonejnfo [TimeDefs] type = packed record TimeZcne: integer; UseTimeZone: boolean; Daylight: 
boolean; UseDaylight: boolean; end 



